perche' tutti questi giri?

usa la classica replace

codice:
sVar = Replace(sVar, "'", "''")
*prima* di registrare sVar nel db, o *prima* di interrogare il db (... WHERE campo = sVar ... )