codice:
StringaChiave = Replace(StringaChiave, "'", "''")
devi mettere 2 apici singoli

se nella chiave non si trova nessun ' non accade nulla