用VB编程出现 标准表达式中数据类型不匹配 问题

Private Sub cha_Click()
Dim sql As String
sql = "select * from 使用记录 where kahao='" & Text1(0).Text & "'or " & "(shijian>='" & Text2(1).Text & "' and shijian<='" & Text3(2).Text & "')"
'shijian字段的数据类型是什么,如果是时间型,就不能用单引号,or 应改为and,不然会有很多不同卡号的记录出现
Adodc1.Recordset.ActiveConnection.Execute sql
'这一句是得到查询记录集
Adodc1.Recordset.Update
'Update是修改此记录,shijian字段绑定的是哪个控件?再说你现在凭什么去修改它,查询记录集是什么状态你都不清楚,如果查询记录集为空怎么办?如果有多条又怎么办?去掉它看看。
Adodc1.Refresh
'刷新?Update都无效了,这一句也没有啥作用
End Sub

时间用Between ... and 试试，我记得是这样。

sql = "select * from [使用记录] where kahao='" & Text1(0).Text & "'or " & "(shijian>='" & Text2(1).Text & "' and shijian<='" & Text3(2).Text & "')"

少个中括号