kodu tekrar düzenledim

Hata verdi hocma, şimdi namaza gidiyorum, dönüşte uzak başlantı versem vakit ayırabilir misiniz ?

aşağıdaki kodu dener misiniz?
Not:baglan.Open "provider=Microsoft.ACE.OLEDB.12.0;data source=" & ThisWorkbook.Path & "\veritabani.mdb" bu koddaki  
Microsoft.ACE.OLEDB.12.0; sizde
microsoft.jet.oledb.4.0; olabilir

Dim sno As Integer

sno = TextBox20.Value

cari = ComboBox4

adres = TextBox1

il = ComboBox3

ilce = ComboBox1

tlfn = TextBox2

fks = TextBox17

vdaire = TextBox15

vno = TextBox16

TcNo = TextBox19

yetkili = TextBox14

mail = TextBox3

hesgrp = TextBox18

tür = ComboBox2



Set baglan = CreateObject("adodb.connection")

baglan.Open "provider=Microsoft.ACE.OLEDB.12.0;data source=" & ThisWorkbook.Path & "\veritabani.mdb"



StrTcVr = IIf(Len(TextBox16) = 0, ", VERGINO=Null", ", VERGINO=" & vno) & IIf(Len(TextBox19) = 0, ",TCNO=Null", ",TCNO=" & TcNo)

SqlG = "UPDATE carikart SET CARIADI='" & cari & "',HESAPGRUBU='" & hesgrp & "',ADRES='" & adres & _

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

                "',YETKILI='" & yetkili & "',MAIL='" & mail & "'" & StrTcVr & " WHERE ID=" & sno



baglan.Execute  SqlG 

Set baglan = Nothing

Hocam merhaba,

Dayanamadınız uğraştınız değil mi ? İnanın biri benden yardım isteyince bende işi gücü bırakıp onla uğraşıyorum.

Bu arada kodlar çalışıyor , emeğinize sağlık. Aşağıdaki uyarınızda belirtmiştiniz TC no ve vergi no alanlarını kısa metin olarak değiştirmem lazım. Diğer türlü hata verdi.

Tekrardan hakkınızı helal ediniz, 

"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"

1 - verdiğim kod şu haliyle tüm sayısıal alanları boş bıraksanız bile çalışıyor mu?
2 - sayısal alanları metne çevirirseniz kodu güncellemek gerekebilir.