Molto probabilmente qualche valore che tenti di inserire contiene un apice che spezza la stringa SQL.
Prova a commentare "on error resume next" e fai un replace sugli apici dei valori che tenti di inserire:

Replace(valoreDaInserire,"'","''")