记录集问题

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 仍然开放吗？