错误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，现在正在工作。