rimpiazza l'apice singolo con due apici singoli, per ogni singolo campo

codice:
sVar = Replace(sVar, "'", "''")
e' molto comodo farsi una funzione