ofisi yeniden yükledim ama yine çalışmadı maalesef o nedenle düzenlemem sadece teorik, kodun ilgili kısmını aşağıdaki gibi dener misiniz?
dilerim çalışır

Set baglan = CreateObject("adodb.connection")

baglan.Open "provider=microsoft.jet.oledb.4.0;data source=" & ThisWorkbook.Path & "\veritabani.mdb"



baglan.Execute ("UPDATE carikart SET CARIADI='" & cari & "',HESAPGRUBU='" & hesgrp & "',ADRES='" & adres & _

                "',IL='" & il & "',ILCE='" & ilce & "',TELEFON=" & tlfn & ",FAKS='" & fks & "',VERGIDAIRESI='" & vdaire & _

                "',VERGINO=" & vno & ",TCNO=" & TcNo & ",YETKILI='" & yetkili & "',MAIL='" & mail & "' WHERE ID=" & sno)

Set baglan = Nothing

Not: accesstek tabloda neredeyse tüm alanları uzun metin olarak ayarlamışsınız, faks isim yada ne bileyim telefon no gibi alanlar 255 karakter uzunluğunu aşmazlar o nedenle kısa metin olmalıydı, ayrıca TCNo 11 hanelidir yanı uzun tamsayıda bile hata verir o alanı da kısa metin olarak ayarlayabilirsiniz