记录集错误VBA Access 2007

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