Crei una funzione CorreggiVirgolette

codice:
function CorreggiVirgolette (stringa)
   CorreggiVirgolette = Replace (stringa, "'", "''")
End function
E poi usi questa funzione nella query di inserimento (o modifica) dati nel db.