Try

            Dim Sql As New String("UPDATE cari SET tckimlikvkn='{0}',soyadi='{1}',adi='{2}',adressatir1='{3}',adressatir2='{4}',ilce='{5}',cariil='{6}',postakodu='{7}',adresno='{8}',ulke='{9}',telefon='{10}',telefon2='{11}',fax='{12}',vergidaire='{13}',eposta='{14}',webadres='{15}',hitap='{16}',yetkiliadi='{17}',yetkiligorev='{18}',carinot='{19}' WHERE TckimlikNo='{20}' ")
            Sql = String.Format(sql, tcvkn.Text, soyad.Text, adi.Text, adres1.Text, adres2.Text, ilce.Text, il.Text, postakod.Text, adresno.Text, ulke.Text, telefon1.Text, telefon2.Text, faks.Text, vergidaire.Text, eposta.Text, webadres.Text, hitap.Text, yetkiliadi.Text, yetkiligorev.Text, carinot.Text, DataGridView1.CurrentRow.Cells(0).Value)
            Dim komutnesnesi As New OleDb.OleDbCommand(sql, baglanti)
            Dim sonuc As Integer
            sonuc = komutnesnesi.ExecuteNonQuery()
        Catch ex As Exception
            MsgBox("Veritabanı seviyesinde hata meydana geldi" & Chr(10) & ex.Message, vbCritical, "Veritabanı Seviyesinde Hata")
        End Try