Ek olarak bir iki düzenleme...

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

bas=Temizle(gelen_bas)