Veri tabanında veri silmede hata.

[vardar07]

Merhaba. Access veri tabanında kayıt etme ,kayıtları değiştirme işleminde sıkıntı yok sadece silme işleminde hata veriyor.Hata yeri kırmızılı yer.
veri tabanında 1.nci sutundan son sütuna kadar #silindi yazıyor komple satırı sildirmek için ne gibi değişiklik gerekir.

Private Sub Sil_Click() 
Dim rs As New ADODB.Recordset
A = ComboBox2.Text
If ListBox1.ListIndex < 0 Then
    MsgBox "Silmek için Listeden bir seçim yapmalısınız.", vbCritical, "UYARI"
    Exit Sub
End If
Set rs = New ADODB.Recordset
If ListBox1.ListCount < 0 Then
    MsgBox "Silme yapabilmek için Listeden bir seçim yapmalısınız.", vbCritical, "UYARI"
    Exit Sub
End If
[COLOR="Red"][B]Set rs = conn.Execute("Delete * from " & A & " Where ID =" & CDbl(ListBox1.Column(0)))[/B][/COLOR]
Call listele
MsgBox "Kayıt Silindi."
Set rs = Nothing
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
ComboBox1.SetFocus
End Sub

 

[akd]

Keşke örnek çalışmanı ekleseydin, daha net cevap yazabilirdik...

 

[erk77]

Access dosyanı güncelle veya kapatıp tekrar aç Silindiler kaybolur. Benim merak ettiğim İD yi Double bir değerle eşleştiriyorsun. Küsuratlı İD olur mu?

 

[akd]

Double de kusurat olur Integer yazarsan olmaz.