Date comparision does not work in VB 6

Hai
Please help me to sort out this problem. I am using vb6 with Ms-Access. I have a
table containing amount & date, I wrote following query to extract date wise list

"select date,amont from table1 where date =" & chr(35) & vardate & chr(35)

Vardate is a variable containing date type value
where am i wrong, Please guide me.

 

Try this

Code:

Sql = "select date,amont from table1 where date =#" & vardate & "#"