错误3420：对象无效或不再设置

Question

我在使用excel-vba工具时遇到了odbc连接问题。

Public connString As Connection 

    Sub login() 
     logout 
     Set wrkODBC1 = CreateWorkspace("NewODBC", "admin", "", dbUseODBC) 
     Set connString= wrkODBC1.OpenConnection("odbc-database", dbDriverNoPrompt, , "ODBC;uid=user;pwd=passwrd;DSN=odbc-database") 
    End Sub 

    Sub logout() 
     On Error Resume Next 
     connString.Close 
     wrkODBC1.Close 
     On Error GoTo 0 
    End Sub 

运行此代码：

login 
txt = "SELECT [col1],[col1] FROM database.[dbo].[table]" 
sqlToWorksheet sheet, connString, txt 


Sub sqlToWorksheet(sheet, conn, sqlString) 
    Set temp = conn.OpenRecordset(sqlString, dbOpenSnapshot) 

当conn.OpenRecordset执行我的错误：错误3420：对象无效或不再设置。任何人都知道什么不对与我的其他odbc连接一起工作。数据库是一个mssqlserver2012。

Answer 1

我忘了这个实例化wrkODBC1，现在工作。