DateWithSQL

Dim db as database
Dim rs as recordset
Dim SQL$
SQL$ = "SELECT * FROM table WHERE startdate = #"
SQL$ = SQL$ & Format(searchdate,"mm-dd-yy") & "#"
Set db = opendatabase(databasename)
Set rs = db.openrecordset(SQL$)