Combo met Findfirst ERROR omdat ' in de tabel?

[eppo2001]

Ik heb een combolist om records op te zoeken met de volgende code:

Private Sub Combo46_AfterUpdate()
' Find the record that matches the control.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[PRODUCT NAME] = '" & Me![Combo46] & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

De ERROR zit in het volgende stukje:
rs.FindFirst "[PRODUCT NAME] = '" & Me![Combo46] & "'"

Het is namelijk zo dat ik een foutmelding krijg wanneer een uit de combolist een waarde kies waar een ' in staat. Bijv. AUTO's, Brommer's ......

Het lijkt er op dat de ' in de naam wordt megenomen als code en vervolgens een ERROR ontstaat:

rs.FindFirst "[PRODUCT NAME] = (')" & AUTO(')s & "(')"

Weet iemand hoe ik kan voorkomen dat de ' uit Me![Combo46] wordt gezien als code?

Misschien is de vraag al eerder gesteld maar kan niet zoeken op '

 

[Tardis]

Hallo,

de apostrofe wordt inderdaad gezien als code.
Zet je verwijzing tussen 3 dubbele aanhalingstekens:

rs.FindFirst "[PRODUCT NAME] = """ & Me![Combo46] & """"

Tardis.

 

[eppo2001]

:thumb: Het werkt nu als een zonnetje :thumb: