Access Veri Silme Güncelleme

[askm]

Kolay gelsin.
Ekteki örnekte veri silme işlemi yaptırmaya çalışıyorum. Veri silindi uyarısı veriyor ama accessden kayıt silmiyor. Verileri tekrar olduğu gibi listeliyor.

 

[Orion1]

Buyurun.
veri sayfasından siliyor.

Private Sub Sil()
If Sheets("Kayit").Cells(2, 3) = "" Then
    MsgBox "Önce sicil numarası yazınız...", vbCritical + vbOKOnly, "nickname"
    Exit Sub
End If

Set BUL = Sheets("Veri").Range("C:C").Find(Sheets("Kayit").Range("C2"), LookAt:=xlWhole)
If Not BUL Is Nothing Then

Dim KSICILNO As String
KSICILNO = Sheets("Kayit").Cells(2, 3).Value

Call baglanti
Set rs = CreateObject("adodb.recordset")
baglan.Execute "DELETE FROM Yeni WHERE SICILNO='" & KSICILNO & "'"
'sorgu = "DELETE FROM Yeni WHERE SICILNO =  ' " & KSICILNO & " '"
'Set rs = baglan.Execute("DELETE FROM Yeni WHERE SICILNO =  ' " & KSICILNO & " '")
'rs.Open sorgu, baglan, 1, 3

Set baglan = Nothing: Set rs = Nothing:
Sheets("veri").Range(Cells(2, "A"), Cells(65000, "V")).ClearContents

sayfaya_yaz


MsgBox KSICILNO & " Sicil numaralı kayıt silindi.", vbInformation + vbOKOnly, "nickname"
Else
MsgBox "Aradığınız Sicil No Bulunamadı !", vbCritical
End If
End Sub