Simple Select Date Problem

Hi There

I know this is simple but I am having problems with the following statement, I have records in the database where the required field is todays date but I cant seem to list them with the following -

Set adoduecallbacks = New Recordset

adoduecallbacks.Open "select * from tblcontacts where dtrmrecontactdate = " & Date, db, adOpenStatic, adLockOptimistic
Set DataGrid5.DataSource = adoduecallbacks
DataGrid5.Refresh


I have moved from a ADO data contraol to code ( the recodsource for the ADO control was "select * from tblcontacts where dtmrecontactdate = date()" which worked.

Thank you in advance!

SELECT * FROM blah WHERE SomeDate =#" & Format(Now, "dd-mmm-yy") & "#"

Jon