Nurullah serdar Bey, merhabalar

Vermiş olduğunuz kod comand butonu çalışmaz hale getiriyor. Benim ihtiyacım olansa kaydet butonuna basıldığında tb2 adlı textboxtaki değeri, Access tablosundaki adı sütununda kontrol edip daha önceden kaydedilmişse kayıt var mesajı verip tb2 textboxtaki değer değişmeden kayıt yapmaması. Kaydet kodları aşşağıdaki gibi
Private baglan As Object, rs As Object
'Private Const veri = "deneme.mdb"
Sub baglanti()
Set baglan = CreateObject("adodb.connection")
baglan.Open "provider=microsoft.jet.oledb.4.0;data source=" & ThisWorkbook.Path & "\DENEME.mdb"
End Sub

Private Sub CommandButton1_Click()
'MBD DOSYASINA VERİ KAYDEDİYOR
On Error Resume Next
Kod = "'" & txb1 & "'"
ad = "'" & tb2 & "'"
soyad = "'" & tb3 & "'"
cari = "'" & cb1 & "'"

Call baglanti
Set rs = baglan.Execute("INSERT INTO DENEMELER (Sira,Ad,Soyad,Cturu) Values (" & Kod & "," & ad & "," & soyad & "," & cari & ")")
Set baglan = Nothing: Set rs = Nothing:
listeye_al
temizle

MsgBox "Yeni kayıt eklendi."


End Sub