为助一下关一查询ACCESS时间段的有关问题

为助一下关一查询ACCESS时间段的问题

Sub LSJKDY() '调用历史交款信息

dim  LSRQ1, LSRQ2 as date


Me.ListView10.ListItems.Clear


SQL = "select * from payment where 交款时间> '" & LSRQ1 & "' and 交款时间< '" & LSRQ2 & "' and 是否交款 = '已交款'"

Call OpenConn

i = 1

    rs.Open SQL, cn, 1, 1

    On Error Resume Next

    Do While Not rs.EOF

        Set addLVW = Me.ListView10.ListItems.Add(, , i, , 1)

            addLVW.SubItems(1) = rs!交款日期

            addLVW.SubItems(2) = rs!客户

            addLVW.SubItems(3) = rs!交款性质

            addLVW.SubItems(4) = rs!房号

            addLVW.SubItems(5) = rs!会员号

            addLVW.SubItems(6) = rs!交款金额

            addLVW.SubItems(7) = rs!是否交款

            addLVW.SubItems(8) = rs!经手人

            rs.MoveNext

            i = i + 1

    Loop

    Me.labCOUNT.Caption = "共收款" & rs.RecordCount & "笔"

Call CloseConn

上面这窜代码，是一个查询历史交款信息的代码
 其中LSRQ1 和 LSRQ2的数据来源于两个DTPicker控件
这个在SQL server上可以正常调用，但是换成access数据库时就报错
出现：
实时错误'-2147217913(80040e07)
标准表达式中数据类型不匹配
肯定是 “SQL = "select * from payment where 交款时间> '" & LSRQ1 & "' and 交款时间< '" & LSRQ2 & "' and 是否交款 = '已交款'"  ”这一句出错，这一句在ACCESS数据库中该如何运用啊？

------解决方案--------------------

'ACCESS中时间常量用#号括起来

SQL = "select * from payment where 交款时间> #" & LSRQ1 & "#  and  交款时间< #" & LSRQ2 & "#  and 是否交款 = '已交款'"

------解决方案--------------------
日期时间字符串用 # 括起来。这是数据库引擎的差异。
------解决方案--------------------

引用:

Sub LSJKDY() '调用历史交款信息

dim  LSRQ1, LSRQ2 as date


Me.ListView10.ListItems.Clear


SQL = "select * from payment where 交款时间> '" & LSRQ1 & "' and 交款时间< '" & LSRQ2 & "' and 是否交款 = '已交款'"