VB查询语句

[jumay]

Private Sub Cmd查询_Click()
    'On Error Resume Next
        Dim Str As String
        Dim Temp As String
        Dim Temp1 As String
        Dim Temp2 As String
            Set Cnn销售订单 = New ADODB.Connection
                Cnn销售订单.ConnectionString = Connstring
                Cnn销售订单.Open
                Cnn销售订单.CursorLocation = adUseClient
            Set Ado销售订单 = New ADODB.Recordset
                    If Trim(Txt开始日期.Value) <> "" Then
                            Temp1 = "订单日期>= " & "'" & Trim(Txt开始日期.Value) & "'"
                            Temp2 = "订单日期 <= " & "'" & Trim(Txt结束日期.Value) & "'"
                            Temp = Temp1 & " And " & Temp2
                          If Str <> "" Then
                                Str = Str + " and " + Temp
                            Else
                                Str = Temp
                            End If
                        End If
                   Str = "select * from 订单明细表 where " & Str
                          Ado销售订单.Open Str, Cnn销售订单, adOpenDynamic, adLockOptimistic
                    Set DG.DataSource = Ado销售订单
    End Sub

我是用的ACCESS数据库，同样的语句用SQL数据库就可以执行，请问要怎样改（用ACCESS，错误提示是：标准表达式中数据类型不匹配。）

[soarsoar77]

If Str <> "" Then
  Str = Str + " and " + Temp
Else
  Str = Temp
End If

我在看你这个Str判断有什么用啊，永远是""的

[lxq19851204]

ACCESS时间用#"& &"#来表示 SQL用'"& &"'来表示

[lxq19851204]

If Trim(Txt开始日期.Value) <> "" Then
Temp1 = "订单日期>= " & "'" & Trim(Txt开始日期.Value) & "'"
Temp2 = "订单日期 <= " & "'" & Trim(Txt结束日期.Value) & "'"
Temp = Temp1 & " And " & Temp2

If Trim(Txt开始日期.Value) <> "" Then
  Temp =" 订单日期 between #" & Trim(Txt开始日期.Value) & "# and #" & Trim(Txt结束日期.Value) & "# "

[贝隆]

http://download.csdn.net/source/1644211