Update için denediğim kod bloğu aşağıdaki gibi, hata görselleri de ekte hocam..

Dim sno As Integer
sno = TextBox20.Value
'cari = "'" & ComboBox4.TEXT & "'"
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.jet.oledb.4.0;data source=" & ThisWorkbook.Path & "\veritabani.mdb"
Set rs = baglan.Execute("UPDATE carikart SET CARIADI=" & cari & ",HESAPGURUBU=" & 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: Set rs = Nothing: