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