ricerca con apice

salve,

quando faccio una ricerca su di un db
Set db3 = db2.OpenRecordset("select * from anagrafe where cognome like '*" &
(txtcognome.Text) & "*' order by nome")
e il nome è con l'apostrofo, non lo trova, quando digito il nome inserisco
due volte l'apice, la ricerca funziona benissimo.

d'angelo (non lo trovo)
d''angelo (lo torva).

come posso fare

grazie  nico.