这个错误是为什么？

Question

Public Const strCNT = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source="      '   "D:\Visual Studio\VB98\Nwind.mdb"
Public Const strSQL = "SELECT * FROM "  ' tablename ORDER BY [FIELD1],[FIELD2] WHERE FIELD = "STRING"Public Const strCreatetbl = "CREATE TABLE tblname (field1 text(len) not null, field2 integer, field3 float )"    Set Cnt = New ADODB.Connection
    Set RS = New ADODB.Recordset    Cnt.ConnectionString = strCNT & App.Path & "\Nwind.mdb"
    Cnt.Open
    
    Cnt.Execute strCreatetbl
    
    RS.Open strSQL & "Employees", Cnt, adOpenStatic, adLockOptimistic

Answer 1

cn是连接，不是记录集
所以
  cn.open  "Provider=Microsoft.Jet.OLEDB.4.0;Password=;Data Source =filepath"
   rs.op sql1,cn,1,3,adcmdtext

Answer 2

不要写成
Dim sql1, sql2 As String
这样sql1是变体形Dim sql1 as string, sql2 As String