Private Sub Calendar1_DblClick()
sql = "select conten from files where date='" & Date & "'"
Dim rs As New ADODB.Recordset
rs.Open sql, conn
Text1.Text = rs(0)
End Sub

这么写date显示的就是当日日期，怎么办呢？

新手求帮助啊，，，，

Private Sub Calendar1_DblClick()
    dim tempStr as String
    tempStr=Date & " %"
    sql = "select conten from files where date like '" & tempStr & "'"
    Dim rs As New ADODB.Recordset
    rs.Open sql, conn
    Text1.Text = rs(0)
End Sub
----取出一天的数据，是这个意思嘛？
 

是取出一天的数据，但还是没实现啊

=后面好像错了吧？