Error when using quickfind 1

[mytaurus2000]

I have the following code:

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

Set rs = Me.Recordset.Clone
rs.FindFirst "[SortName] = '" & Me![QuickFind] & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
Me!QuickFind.Value = ""

End Sub

But when I search with a customer name of O'Brien, I receive an error stating Syntax error (missing operator) in expression.

What does this mean and how do I fix it?

 

[PHV]

rs.FindFirst "[SortName]='" & Replace(Me![QuickFind], "'", "''") & "'"

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[mytaurus2000]

Thanks PH, wish I could give you more than one star. Why was this occuring?

 

[PHV]

Why was this occuring?
The criteria you used:
[tt][SortName] = 'O[!]'[/!]Brien'[/tt]

The criteria fixed:
[tt][SortName] = 'O[!]''[/!]Brien'[/tt]

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886