Создание модуля выдающий диск в долг знакомому

Option Compare Database
Public Sub Lound()
Dim my_base As Database
Dim rstNwind As DAO.Recordset
Dim rstNwind2 As DAO.Recordset
Dim str As String
Dim strS As Integer
Dim strD As Date
Set my_base = CurrentDb()
'Set rstNwind = my_base.OpenRecordset(" SELECT [Мне должны].ФИО , [Мне должны].Шифр , [Мне должны].[Дата возврата],[Знакомые ].ФИО FROM [Мне должны] , [Знакомые]", dpOpenTable)
Set rstNwind = my_base.OpenRecordset("Мне должны", dbOpenTable, dbAppendOnly)
Set rstNwind2 = my_base.OpenRecordset("Знакомые")
str = InputBox("Введите ФИО", BoxTitle)
strS = InputBox("Введите Шифр", BoxTitle)
strD = InputBox("Введите Дату возврата", BoxTitle)
With rstNwind
.AddNew
!ФИО = str
!Шифр = strS
![Дата возврата] = strD
.Update
End With
End Sub

Option Compare Database
Public Sub Lound()
Dim my_base As Database
Dim rstNwind As DAO.Recordset
Dim rstNwind2 As DAO.Recordset
Dim str As String
Dim strS As Integer
Dim strD As Date
Set my_base = CurrentDb()
Set rstNwind = my_base.OpenRecordset("Ìíå äîëæíû", dbOpenTable, dbAppendOnly)
str = InputBox("Ââåäèòå ÔÈÎ", BoxTitle)
'Ïîìîãèòå ïðàâåëüíî íàïèñàòü ýòó ñòðî÷êó' Set rstNwind=my_base.OpenRecordset("SELECT [Ìíå äîëæíû].Øèôð, [Ìíå äîëæíû].[Äàòà âîçâðàòà] FROM [Ìíå äîëæíû], [Ìîÿ áèáëèîòåêà] WHERE "&str&"<>(( [Ìîÿ áèáëèîòåêà].Øèôð=("Äèñê(CD)"OR "Äèñê(DVD)") AND Count( [Ìíå äîëæíû].Øèôð=3) AND ( [Ìíå äîëæíû].[Äàòà âîçâðàòà]<= [Ìíå äîëæíû].Âåðèíóëè));")
strS = InputBox("Ââåäèòå Øèôð", BoxTitle)
strD = InputBox("Ââåäèòå Äàòà âîçâðàòà", BoxTitle)
rstNwind.MoveLast
With rstNwind
.AddNew
!ÔÈÎ = str
!Øèôð = strS
![Äàòà âîçðàòà] = strD
.Update
End With
End Sub