Ma che errore ricevi?

Se nella stringa che cerchi di inserire c'è l'apice singolo (') devi eseguire il replace:

Str = Replace(Str, "'", "''")