Run-time error '13': Type mismatch when using a combo box

[bell]

Hi all,



I had originally made a database that took in the primary key (Part Number) as a number, but I had to change that to text so that my Part Number could contain a dash.

I had a Main Form I used to open up a specific Part Number entry, which worked when the Part Number was a number, but now when I use the combo box to pick a Part Number to open, I get the run-time error '13': Type mismatch.

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


    Set rs = Me.Recordset.Clone
    rs.FindFirst "[Part Number] = " & Str(Nz(Me![Combo4], 0))
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

The error occurs at rs.FindFirst

Could anyone help me correct this?

[June7]

Parameters for text field need apostrophe delimiters, date fields use #, numbers don't have delimiters.

rs.FindFirst "[Part Number] = '" & Nz(Me.Combo4, 0) & "'"

Suggest you give controls meaningful names, especially the ones referenced in code or expressions.

[bell]

Thank you, that worked