記錄集問題

Question

我在使我的記錄集在以下代碼中正常工作時遇到問題，並且不確定它是否是 VBA 固有的破舊部分的個人運行時錯誤。 代碼如下

Option Compare Database

Option Explicit

Dim dbInquiry As New ADODB.Connection

Dim rstVendor As New ADODB.Recordset

Private Sub Form_Load()

    Set dbInquiry = CurrentProject.Connection
    rstVendor.Open "Select * from Vendors Order By VendorName", dbInquiry, adOpenKeyset, _
    adLockOptimistic, adCmdText
    
    Me.lstVendors = rstVendor!VendorNo
    Me.lstVendors.Requery
    Call readVendor

End Sub

Private Sub readVendor()
    
    Me.lblVendorNumber.Caption = rstVendor!VendorNo
    Me.lblVendorName.Caption = rstVendor!VendorName
    Me.lblVendorAddress.Caption = rstVendor!Address1
    Me.lblVendorCity.Caption = rstVendor!City & ", " & rstVendor!Prov
    Me.lblVendorPostal.Caption = rstVendor!PostCode

End Sub


Private Sub lstVendors_Click()

    rstVendor.MoveFirst
    rstVendor.Find "VendorNo = " & Me.lstVendors
    Call readVendor
    
End Sub

現在，問題在於讀取數據庫。 在表單加載時調用方法 readVendor 時，它可以完美運行。 當它在第一個項目單擊時調用時，我收到錯誤 3021：BOF、EOF 或記錄已刪除。 非常感謝任何指導。 提前致謝

Answer 1

rstVendor.Find "VendorNo = " & Me.lstVendors

有什么發現嗎？ 和/或 rstVendor 是否仍然打開？