Il tuo problema dovrebbe essere il carattere '
Per risolvere basta fare un piccolo replace:
codice:
stringa="stringa contenente '"
stringa = Replace(stringa, "'","''")
'codice query di insert