Combo Box Error

[ielamrani]

Hi,
I created a combo box to filter client name. The combo box is working fine except on this case:
when I filter one of these name:
David's Financial or Rao's Specialty
I get this error:

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

    Set rs = Me.Recordset.Clone
    [B]rs.FindFirst "[Client Name] = '" & Me![Combo170] & "'"[/B]
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

I believe the error comes up because the names have an Apostrophe (').

Anyone have any idea
Thank you in advance

[dorinbogdan]

rs.FindFirst "[Client Name] = '" & Replace(Me![Combo170], "'", "''") & "'"

[ielamrani]

Great. Thank you.