Удалить запись из БД

Private Sub Command1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command1.Click
        Dim rst As New ADODB.Recordset
        rst = New ADODB.Recordset
        rst.Open("Event_tbl", "Provider = Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\User\Desktop\Nap5_Add\Event_db.accdb;Persist Security Info=False;", ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockPessimistic)
        rst.AddNew()
        rst.Fields("Da_te").Value = CDate(Text2.Text)
        rst.Fields("Event").Value = Text1.Text
        rst.Fields("Ti_me").Value = Text3.Text
        rst.Fields("Enterprise").Value = Text4.Text
        rst.Fields("Phone").Value = Text5.Text
        rst.Fields("Location").Value = Text6.Text
        rst.Fields("Da_te2").Value = CDate(Text7.Text)
        rst.Update()
    End Sub

Private Sub Command6_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command6.Click
        Dim rs As New ADODB.Recordset
        Dim i As Integer
        rs = New ADODB.Recordset
        rs.Open("Event_tbl", "Provider = Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\User\Desktop\Nap5_Add\Event_db.accdb;Persist Security Info=False;", ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockPessimistic)
        'Dim msg As MsgBoxResult
        'Проверяешь, есть ли соединение
        'msg = MsgBox("Соединение установлено")
        'MsgBox("Соединение установлено")
        Dim dt As Date
        'Твой формат даты
        dt = Date.Now.Date
        'Проверяешь правильно ли выдается текущая дата
        'msg = MsgBox(dt)
        'rs.MoveLast()
        'dt = rs.Fields("Da_te").Value
        'Проверяешь совпадает ли выдаваемый результат с последней записью в нужной колонке
        'msg = MsgBox(dt)
        'a = rs.RecordCount
        'Проверяешь совпадает ли число записей с количеством их в таблице
        'msg = MsgBox(a)
        'rs.MoveFirst()
        'Проверяешь совпадает ли выдаваемый результат с первой записью в нужной колонке
        'msg = MsgBox(dt)
        ''Dim scht As Integer
        ''rs.MoveLast()
        ''scht = rs.Fields("Код").Value    ' или как оно там у тебя называется не знаю
        ''rs.MoveFirst()
        Dim scht As Integer
        scht = 1
        rs.MoveFirst()
        Do Until rs.EOF
            rs.MoveNext()
            scht = scht + 1
        Loop
        MsgBox(scht)
        rs.MoveFirst()
        For i = 1 To scht
            If rs.Fields("Da_te").Value < Date.Now.Date Then
 
                'Проверяешь попадаешь ли ты хотя бы раз внутрь условия
                ' msg = MsgBox("Есть контакт")
                rs.Delete()
                'scht = 4
            Else
            End If
            rs.MoveNext()
            'Проверяешь совпадает ли выдаваемый результат со следующей после найденной в условии записью в нужной колонке, то есть переместился ли ты
            'msg = MsgBox(dt)
        Next i
 
        rs.Close()
        rs = Nothing
    End Sub
 
 
 
End Class

Option Strict Off
Option Explicit On
Friend Class Form1
    Inherits System.Windows.Forms.Form
    Private Sub Command1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command1.Click
        Dim rst As New ADODB.Recordset
        rst = New ADODB.Recordset
        rst.Open("Event_tbl", "Provider = Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\User\Desktop\Nap5_Add\Event_db.accdb;Persist Security Info=False;", ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockPessimistic)
        rst.AddNew()
        rst.Fields("Da_te").Value = CDate(Text2.Text)
        rst.Fields("Event").Value = Text1.Text
        rst.Fields("Ti_me").Value = Text3.Text
        rst.Fields("Enterprise").Value = Text4.Text
        rst.Fields("Phone").Value = Text5.Text
        rst.Fields("Location").Value = Text6.Text
        rst.Fields("Da_te2").Value = CDate(Text7.Text)
        rst.Update()
    End Sub
    
    Private Sub Command2_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command2.Click
        Text1.Text = ""
        Text2.Text = ""
        Text3.Text = ""
        Text4.Text = ""
        Text5.Text = ""
        Text6.Text = ""
        Text7.Text = ""
    End Sub
 
    Private Sub Command4_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command4.Click
        Text7.Text = Text2.Text
    End Sub
    
    Private Sub List1_SelectedIndexChanged(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles List1.SelectedIndexChanged
        Text1.Text = ""
        Text1.Text = List1.Text
        Text2.Focus()
    End Sub
 
    Private Sub List2_SelectedIndexChanged(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles List2.SelectedIndexChanged
        Text4.Text = ""
        Text4.Text = List2.Text
        Text5.Focus()
    End Sub
 
    Private Sub MonthCalendar1_DateChanged(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DateRangeEventArgs) Handles MonthCalendar1.DateChanged
        Text2.Text = MonthCalendar1.SelectionStart
 
    End Sub
 
    Private Sub Command6_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command6.Click
        Dim rs As New ADODB.Recordset
        Dim i As Integer
        rs = New ADODB.Recordset
        rs.Open("Event_tbl", "Provider = Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\User\Desktop\Nap5_Add\Event_db.accdb;Persist Security Info=False;", ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockPessimistic)
        
        Dim dt As Date
        'Твой формат даты
        dt = Date.Now.Date
        
        Dim scht As Integer
        scht = 0
        rs.MoveFirst()
        Do Until rs.EOF
            rs.MoveNext()
            scht = scht + 1
        Loop
 
        rs.MoveFirst()
        For i = 1 To scht
            If rs.Fields("Da_te").Value < Date.Now.Date Then
                rs.Delete()
            Else
            End If
            rs.MoveNext()
            'Проверяешь совпадает ли выдаваемый результат со следующей после найденной в условии записью в нужной колонке, то есть переместился ли ты
 
        Next i
        rs.Close()
        rs = Nothing
    End Sub
 
 
 
End Class

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      
        Me.Event_tblTableAdapter.Fill(Me.Event_dbDataSet.Event_tbl)
        Me.Event_tblTableAdapter.Update(Me.Event_dbDataSet.Event_tbl)
        DataGridView1.AutoSize = True
        DataGridView1.Update()
    End Sub