I have a problem with a combo-box control. This control is in Food Service Inspections program and on a form that is used to manage the basic information about each food service establishment (FSE) and the code for the combo box show below is used to help the food inspectors quickly find the record for a given FSE. The combo-box functions properly on eight other machines currently running this program. However, on one machine in which this combo box has always worked previously, I am now getting the following error message "-2147024770: Method 'Recordsetclone '_Form_Food Establishments' failed.

Terry H

Private Sub ComboFindEstablishment_AfterUpdate()
On Error GoTo Err_Find

' Find the record that matches the control.
Me.RecordsetClone.FindFirst "[Est_ID] = '" & Me![ComboFindEstablishment] & "'"
Me.Bookmark = Me.RecordsetClone.Bookmark

Exit Sub

MsgBox Err.Number & ": " & Err.Description
Resume Exit_Err_Find
End Sub