Try this

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