Would someone please tell me why my code does not locate any records. There are many payments in the table received after 12/01/2012.
Private Function getPayments()
Dim db As Database
Dim rst As Recordset
Dim datePaid As Date
Set db = DBEngine(0)(0)
Set rst = db.OpenRecordset("tblInvPayments", dbOpenDynaset)
datePaid = #12/1/2012#
rst.FindFirst rst![fDateReceived] >= datePaid
If Not rst.NoMatch Then
Debug.Print "Yes, a match!"
Else
Debug.Print "No match found."
End If
End Function