Microsoft JET Database Engine hata '80040e14'

İyi günler, başka bir siteden çektiği verileri ekrana yazdırırken bir sıkıntı olmuyor ama veritabanına attığım zaman 13 veriden 5 ini atıyor sonra hata veriyor.
kodlar;
response.Write(bas&"<br>")
response.Write(alt&"<br>")
response.Write(imge&"<br>")
response.Write(link&"<br><br>")

bagjant.execute("INSERT INTO oto (bas,ac,res,link,nerden) VALUES('"&bas&"','"&alt&"','"&imge&"','"&link&"',' arabam')")

veritabanı bağlantısını sildiğim de sorunsuz olarak response.writeler çalışıyor ama veritabanı bağlantısından sonra ilk 5 sütündan sonra yeni veri alınca;

sorgu ifadesi içindeki Sözdizimi hatasý (eksik iþleç)

/deneme.asp, satır 46

Satır 46
bagjant.execute("INSERT INTO oto (bas,ac,res,link,nerden) VALUES('"&bas&"','"&alt&"','"&imge&"','"&link&"',' arabam')")

Sql sözdizimi hatası diyor. Aşağıdaki gibi deneyin.
bagjant.execute("INSERT INTO oto (bas,ac,res,link,nerden) VALUES('"& Replace(bas, "'", "''") &"','"& Replace(alt, "'", "''") &"','"& Replace(imge, "'", "''") &"','"& Replace(link, "'", "''") &"',' arabam')")

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;
gibi

Ek olarak bir iki düzenleme...

Function Temizle(veri)
	veri = veri & ""
	veri = Replace(veri, "'", "''")
	Temizle = veri
End Function

bas=Temizle(gelen_bas)

replace ettiğim karakter görünmemiş & ve #'i birleştirip kullanın

teşekkürler