-2147217913(80040e07)标准表达式中数据类型不婚配

-2147217913(80040e07)标准表达式中数据类型不匹配
Option Explicit

Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim rs2 As New ADODB.Recordset


Public Function ConnectionToServer(strpath As String) As Boolean
   On Error GoTo connectErr
   cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strpath & "db1.mdb"
   cnn.ConnectionTimeout = 30
   cnn.Open
   ConnectionToServer = True
   Exit Function
connectErr:
   ConnectionToServer = False
   MsgBox "错误代码: " & Err.Number & vbCrLf & _
   "错误描述: " & Err.Description, vbCritical + vbOKOnly, "连接错误"
End Function
Public Function DisConnect() As Boolean
   If cnn.State = adStateOpen Then
      cnn.Close
   End If
   DisConnect = True
End Function
Public Function ExecuteSQL(ByVal strSQL As String) As Boolean
'  On Error Resume Next
   cnn.Execute (strSQL)
   If Err.Number > 0 Then
      Err.Clear
      ExecuteSQL = False
   Else
      ExecuteSQL = True
   End If
End Function
Public Function QueryData(ByVal strSQL As String) As Boolean
   'On Error Resume Next
   Set rs = New ADODB.Recordset
   Call rs.Open(strSQL, cnn, adOpenDynamic, adLockOptimistic, -1)
   If Err.Number > 0 Then
      Err.Clear
      QueryData = False
   Else
      QueryData = True
   End If
End Function
Public Function QueryData2(ByVal strSQL As String) As Boolean
   'On Error Resume Next
   Set rs2 = New ADODB.Recordset
   cnn.CursorLocation = adUseClient
   Call rs2.Open(strSQL, cnn, adOpenDynamic, adLockOptimistic, -1)
   If Err.Number > 0 Then
      Err.Clear
      QueryData2 = False
   Else
      QueryData2 = True
   End If
End Function

Private Sub Command1_Click()
 With cd1Open
       .DialogTitle = "选择导入文件"
       .Filter = "(*.*)|*.*"
       .ShowOpen
       If Len(.FileName) = 0 Then Exit Sub
       Text1.Text = .FileName
       End With
End Sub

Private Sub Command2_Click()
    With cd1Open