frdtrkc'nin dediği gibi, dışardan gelen veriler içinde tek tırnak varsa insert into yordamı hata verir, çünkü karakteri ayırt edemez (tırak özel karakterdir), aldığın verileri bir temizleme fonksiyonundan geçirsen çok yararlı olur;
Alıntı

Function Temizle(veri)
veri=replace(veri,"'","'")
Temizle=veri
End Function

bas=Temizle(gelen_bas)
gibi