求助:ADO按日期筛选错误

pyzl

**日期从10月1号，至15号都有记录，我在窗体1设定DDD为10月11号，但用以下代码会有不正确的日期，10月1号也会选出来，请帮我看看问题出在哪里，先谢谢各位了！
Private Sub Command2_Click()
Dim rsde As New ADODB.Recordset   
rsde.Open "select * from 表1 where [日期]>" & ddd & "", CurrentProject.Connection, adOpenDynamic, adLockOptimistic
          Do Until rsde.EOF = True
                  If rsde.Fields("日期") > ddd Then
          MsgBox rsde.Fields("日期") & "正确"
           Else
             MsgBox rsde.Fields("日期") & "错误"
           End If
                 rsde.MoveNext
           Loop
           rsde.Close
End Sub

pyzl

呵呵，我#号加错了地方了，谢谢你！[:50]

kevindeng

日期前面要加#号
rsde.Open "select * from 表1 where [日期]>#" & ddd & "#", CurrentProject.Connection, adOpenDynamic, adLockOptimistic