记录集错误VBA Access 2007

如何解决记录集错误VBA Access 2007

| 我在使我的记录集在以下代码中正常工作时遇到问题，并且不确定这是否是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或记录已删除。非常感谢任何指导。提前致谢     

解决方法

rstVendor.Find \“ VendorNo = \”＆Me.lstVendors 找到了什么吗？和/或rstVendor是否仍然打开？