访问数据库时遇到的问题

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变量，该函数没有问题。