access ricerca record con apostrofo.

[futty]

Buona sera qualcuno mi potrebbe dare un consiglio, non riesco a trovare la soluzione in questo codice:

Private Sub CasellaRicercabtn_Click()
Dim casella As String
casella = " Select * FROM agenda WHERE cognome LIKE '*" & CasellaRicerca.Value & "*' OR nome LIKE '*" & CasellaRicerca.Value & "*' OR telefono LIKE '*" & CasellaRicerca.Value & "*' "
Me.RecordSource = casella
Me.Requery

End Sub

premetto che è un a agenda telefonica. grazie mille