VB用了DTPICKER控件 连接ACCESS 按日期进行查询时错误 求大神

初学VB 作业要做一个日记本 在用DTPICKER进行数据库查询时发生错误
数据库的新建操作暂时能够实现，所以数据库连接应该没什么问题吧。。。 
以下为读取某条记录的代码 不知道哪里错了 请各位大神指教
sql = "select * from 日记 where 日期 = " & DTPicker1.Value & "  "
    conn.CursorLocation = adUseClient
    rs.Open sql, conn, adOpenKeyset, adLockPessimistic
    If rs.RecordCount = 0 Then

    Else
    Text3.Text = rs.Fields("天气")
    Text1.Text = rs.Fields("正文")
    End If
    rs.Close
    conn.Close
    Set rs = Nothing
    Set conn = Nothing --------------------编程问答-------------------- 啥错啊,哪行啊 --------------------编程问答--------------------

引用 1 楼 myjian 的回复:

啥错啊,哪行啊

就是我运行测试以后选了一个明明有记录的日期 却没有记录显示

只要把where 日期 = " & DTPicker1.Value & " 删除 就会永远显示第一条记录 --------------------编程问答-------------------- --------------------编程问答-------------------- sql = "select * from 日记 where 日期 = #" & DTPicker1.Value & "#"

试试.

ACCESS好象是用#号来表示日期类型. --------------------编程问答-------------------- 另外,直接"select * from 日记"这是得到所有记录.

那么RS中会返回所有的内容,格式与数据库中看到的一样,一行一行的.

调用rs.MoveNext移动读写位置到下一行, rs.Fields("天气")与rs.Fields("正文")就是下一行的内容了.

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