sorunu yanlış anlamışım.butonun kodunu

Private Sub CommandButton1_Click()
'MBD DOSYASINA VERİ KAYDEDİYOR
Call baglanti
Set rs1 = New ADODB.Recordset
rs1.Open ("select * from DENEMELER where ad='" & tb2 & "'"), baglan, adOpenStatic, adLockBatchOptimistic
If rs1.RecordCount <> 0 Then
MsgBox "bu kayıt daha önce girilhmiş"
Exit Sub
End If

On Error Resume Next
Kod = "'" & txb1 & "'"
ad = "'" & tb2 & "'"
soyad = "'" & tb3 & "'"
cari = "'" & cb1 & "'"


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
bununla değiştir