访问数据库时遇到的问题

[mqyng]

Dim rs As adodb.Recordset
Dim txtSQL, MsgText As String
Dim FromTime, ToTime As Date

On Error GoTo Errorhandle
dSum = 0
FromTime = CDate(txtFrom.Text)
ToTime = CDate(txtTo.Text)
txtSQL = "select * from tblBill where date > " & FromTime & " and date < " & ToTime & "

Set rs = ExecuteSQL(txtSQL)


我想返回date在 txtFrom.Text和txtTo.Text之间的记录

返回记录条数怎么总是0?

谁能帮我看看，错在哪了。


注:date为表tblBill中的日期字段,字段类型为"日期时间"
ExecuteSQL(txtSQL,Msgtext)为ADO访问数据库函数,txtSQL为SQL语句,返回的Execute为recordset变量，该函数没有问题。

[yanzhao]

看是不是Date格式的问题？

[饮水需思源]

数据库为access:
"select * from tblBill where date > #" & FromTime & "# and date < #" & ToTime & "#"
数据库为sql:
"select * from tblBill where date > "'" & FromTime & "'" and date < "'" & ToTime & "'"