Обновление данных в DataGridView при добавлении записей в БД

DataGridView1.Update()

Private Sub DataGridView1_CellValueChanged(sender As System.Object, e As _ System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellValueChanged
        UpdateDT(dt, QRY, ScS)
End Sub
 
Public Sub UpdateDT(dt As DataTable, QRY As String, ScS as String)
        Dim con As New SqlConnection(ScS)
        Dim adapter As New SqlDataAdapter(QRY, con)
        Dim cmdBuilder As New SqlClient.SqlCommandBuilder(adapter)
        Try
            con.Open()
            adapter.Update(dt)
            con.Close()
        Catch ex As Exception
            MsgBox("Error")
        End Try
End Sub

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