会vb6 的高手，来帮忙下~~~

xiaowei4220

我是用 2个dtpicker 和 1个command button ,以日期来显示报告

例如 ：from 1/7/2013 to 2/7/2013 然后按 show button ,可是出现错误

错误时：run-time error '13':

type mismatch


code:
Private Sub cmdshow_Click()
Dim start1 As Date
Dim start2 As Date
Dim lvSQL As String
start1 = Format(DTPickerStart.Value, "dd MMM yyyy")
start2 = Format(DTPickerEnd.Value, "dd MMM yyyy")
Dim rs As New ADODB.Recordset
rs.CursorLocation = adUseClient
lvSQL = "SELECT * FROM CustomerData where Date BETWEEN "" & start1 &" And " & start2 & "
rs.Open lvSQL
    Set AllCusRpt.DataSource = rs
    AllCusRpt.Show
  
End Sub

红色字那排debug

帮帮忙~~~感激不尽！！

angwh

好像是这个"放错位罢了