un classico...

codice:
sVar = Replace(sVar, "'", "''")