Find Record Button Not Working

[Nicole Adams via AccessMonster.com]

My find record routine is not working. The following is my method and code:

I have a main form that brings up a record based on the vendor combobox
drop-down. It only brings up one record at a time and I need to use the
navigation buttons at the bottom to scroll through all the records.

In order to see all the records for this vendor, I have a button named
ListRecords, which will bring up a subform to list all the records for this
vendor in datasheet format. I used the datasheet so the User can sort the
datasheet columns and chose a record they want to edit.

On this subform is a findRecord button right above the datasheet list of
all records. The User copies the cell job#, then clicks on findRecord
button which brings up a search form. The User pastes the job# in the text
box and clicks submit. The main form should populate with the new record
but it doesn’t. Here’s my code on the submit button:

Private Sub Command0_Click()

Private Sub TextJO_AfterUpdate()
Dim rs As Object
Set rs = Me.RecordsetClone
rs.FindFirst "JobOrder= '" & [TextJO] & " ' "
Me.Bookmark = rs.Bookmark

End Sub

I get the error “invalid reference to recordsetclone property.

Does anyone know what I’m doing wrong?? Is there a simpler way of doing
this?

Thanks,
Nicole