獲取運行時錯誤91 [對象變量或塊變量未設置]

Question

我想下面的代碼從訪問數據庫，但獲取錯誤91，請建議如何刪除錯誤。

Private Sub CommandButton1_Click() 

    Dim con As ADODB.Connection 

    Dim rs As ADODB.Recordset 

    Dim strConn As String 

    Set con = New ADODB.Connection 

    con.Mode = adModeReadWrite 

    If con.State = adStateClosed Then 

     strConn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & "C:\temp\db2.mdb;Persist Security Info=False;" 

     con.ConnectionString = strConn 

     con.Open 

    End If 

    Dim startRow As Integer 

    ***Set rs.ActiveConnection = con*** 

    rs.Open "select * from tbl_name" 
    startRow = 3 
    Do Until rs.EOF 
     Cells(startRow, 4) = rs.Fields(0).Value 
     rs.MoveNext 
     startRow = startRow + 1 
    Loop 

    rs.Close 
    Set rs = Nothing 
    con.Close 
    Set con = Nothing 
End Sub 

Answer 1

您致電：

rs.ActiveConnection = con 
rs.Open 

不首先創建記錄的一個實例：

Set rs = New ADODB.RecordSet 

Answer 2

我在測試的應用程序有此錯誤。

在我的特殊情況下，應用程序使用的Oracle Home存在問題。因此，數據源無法訪問。