Синтаксическая ошибка FindFirst с критериями даты

Question

У меня есть следующие строки в VBA Access, но я получаю синтаксическую ошибку от FindFirst, и я не понимаю, почему.

criteria = "[HolidayDate] = " & "#" & myDate & "#"
rst.FindFirst (criteria)
If rst.NoMatch Then
    count = count + 1
End If

Answer 1

Циклический набор записей не является решением.

Если HolidayDate действительно имеет тип данных DateTime, это будет работать:

criteria = "[HolidayDate] = #" & Format(myDate, "yyyy\/mm\/dd") & "#"
rst.FindFirst criteria

Если нет, то что-то еще происходит.

Answer 2

Do While mydate <= EndOfMonth
        If Weekday(mydate, vbMonday) < 6 Then
             With rst
                .MoveFirst
                flag = False
                Do While Not .EOF
                    If CDate(.Fields("HolidayDate").Value) = myDate Then
                        flag = True
                    End If
                .MoveNext
                Loop
                If flag = False Then
                    count = count + 1
                End If
            End With
        End If
        myDate = myDate + 1
    Loop