[RESOLVED] Date related problems in VB6 and MS Access

[versalife51]

Hi.
Here is the code.

-------------------------------------------------------------------------------------

Private Sub cmdbrt_Click()

bkmark2 = ado_books.Recordset.AbsolutePosition

sqlb = "select * from books where date_of_return < '" & Date & "'"

ado_books.RecordSource = sqlb
ado_books.Refresh

If ado_books.Recordset.RecordCount = 0 Then
MsgBox "No books late"
ado_books.RecordSource = "select * from books"
ado_books.Refresh
ado_books.Recordset.AbsolutePosition = bkmark2
End If

End Sub

------------------------------------------------------------------------------------

The field date_of_return has the value in the format DD-MMM-YY which is similar to what the Date function returns.

Now the problem is that it shows up an error showing "Data Type Mismatch in Criteria Expression".

Any idea how to solve this?
Thanks in advance.

[WillAtwell]

MS Access requires you to use the # character on date formats. Like so

sqlb = "select * from books where date_of_return < #" & Date & "#"

[versalife51]

Hey. Thanks a ton WillAtwell!! You saved my life! It worked perfectly well.