Hi guys:

I am hoping somebody may be able to help. I have a very simple code in a
combo box.  The code is below.  The proble is that I keep on getting a Data
Type Mismatch error when ever I try to run it.  Just FYI the PC_Tag_Number is
a text field composed of numbers.    

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

   Set rs = Me.Recordset.Clone
   rs.FindFirst "[PC_Tag_Number] = " & Str(Nz(Me![Combo59], 0))
   
   If rs.NoMatch Then
   MsgBox "Not Found"
   Else
   Me.Bookmark = rs.Bookmark
   End If
End Sub

Any help is greatly appreciated.

Celia