vb.net查询日期难题 求解答

我定义了一个calendar控件，在它的selectchanges 时间里边写这样的函数 目的是要查询日期  可是不对 求解答


Dim aa As String = " select * from 历史消费总额 where 消费日期='" + Calendar1.SelectedDate + "'"
accessdatasource1.selectcommand=aa


不知哪里出错   求指教  --------------------编程问答-------------------- 日期比较 用 datediff （day,消费日期，拼接的日期）
Dim aa As String = " select * from 历史消费总额 where datediff （day,消费日期,'" + Calendar1.SelectedDate + "'期）=0"
另外 输出 Calendar1.SelectedDate 看是否是日期格式

补充：VB ,  数据库(包含打印，安装，报表)