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

[JustinDEbass]

Здравствуйте.
Задание: Написать модуль, выдающий диск в долг знакомому. Диск выдается только в том случае, если знакомый имеет на руках не более 3 взятых ранее в долг дисков и все диски, которые он брал до этого, возвращал в срок.
Вот я написал модуль он чисто выдает в долг без условия. Написании условия есть ошибки.
Помогите пожалуста исправить синтаксическую ошибку в 12 строке:

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