Error need help

[shrive22]

hi all

I get a wierd error message with this code

Private Sub Combo37_AfterUpdate()
' Find the record that matches the control.
Dim rs As Object

Set rs = Me.Recordset.Clone
s.FindFirst "[Cust_no] = '" & Me![Combo37] & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub


THE ERROR:

The expression after update you entered as the event property setting produced the following error: A problem occurred while microsoft access was communicating with the OLE server or active X control.


Any ideas what this means?????

thanks a lot