The following works with ADO and SQL Server 7.0 - give it a try and modify as required for your use.

Tom

dim sDate
sDate = date()
sString = "Select * from LineCall where contactdate = '" & sDate & "' "