Los problemas estan en esta linea:
txt = Replace (txt, "''", "
'")
El error se produce en primer lugar, por la ' anterior.
si decido prescindir de ella y poner:
txt = Replace (txt, "''", "")
No se produce error al insertar en la base, sin embargo se inserta esto:
txt = Replace (txt, "'", "")
Perdiendose una ' en el camino.
