ekteki örneğe Referanslar bölümüne gereken referans eklendikten sonra ekteki kodlar yazılmıştır.
If IsNull(Me.LST1.Column(0)) Then
MsgBox "kayıt seçmedin, kaydı silmek için bir kayıt seçin", vbCritical, "bİLGİ"
Else
Dim rs As New ADODB.Recordset
rs.Open "tblKayitlar", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rs.Find "[KayitId]=" & Me.LST1.Column(0)
rs.Delete
rs.Close
Set rs = Nothing
Me.LST1.Requery
MsgBox "seçtiğiniz kayıt silindi"
End If