Сохранение изменений в БД из DataGridView

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim DB_Con As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Label1.Text & ";")
 
        DB_Con.Open()
        Dim DT As New Data.DataTable ' создание таблицы DT
        Dim selected As String = ListBox1.SelectedItem
        If selected <> "" Then
            Dim SqlCom As New OleDb.OleDbCommand() 'создание запроса
 
            SqlCom.CommandText = "SELECT * FROM " & selected & ";" ' команда запроса
 
            SqlCom.Connection = DB_Con 'указываем какое соединение используем
 
            SqlCom.ExecuteNonQuery() 'выполнение запроса
 
            Dim DA As New OleDb.OleDbDataAdapter(SqlCom) ' создание адаптера данных и заполнение его результатами запроса SqlCom
 
            DA.Fill(DT) 'заполнение таблицы DT данными из адаптера DA
 
            DataGridView1.DataSource = DT ' занесение в датагрид таблицы DT
            DB_Con.Close() 'закрытие соединения
        End If
        
    End Sub
End Class

Imports System.Data.SqlClient
Public Class Form1
    Public daDataGrid As SqlDataAdapter
    Private tblTable1 As New DataTable
    Private ConnectionStr As String ' Строка подключения к БД
 
    Private Function GetDataAdapter(ByVal ConnectionDB As SqlConnection) As SqlDataAdapter
        Dim dAdapter As New SqlDataAdapter
        Dim param As New SqlParameter
        dAdapter.MissingSchemaAction = MissingSchemaAction.AddWithKey
        dAdapter.SelectCommand = New SqlCommand("SELECT * FROM Table1", ConnectionDB)
        dAdapter.UpdateCommand = New SqlCommand()
        With dAdapter.UpdateCommand
            .CommandText = "UPDATE Table1 SET NameUser=@NameUser, LastDate=@LastDate " & _
                           "WHERE  IDCode=@IDCode"
            .Connection = ConnectionDB
 
            param = .Parameters.Add(New SqlParameter("@NameUser", SqlDbType.VarChar, 255))
            param.Direction = ParameterDirection.Input
            param.SourceColumn = "NameUser"
            param.SourceVersion = DataRowVersion.Current
 
            param = .Parameters.Add(New SqlParameter("@LastDate", SqlDbType.DateTime))
            param.Direction = ParameterDirection.Input
            param.SourceColumn = "LastDate"
            param.SourceVersion = DataRowVersion.Current
 
            param = .Parameters.Add(New SqlParameter("@IDCode", SqlDbType.BigInt))
            param.Direction = ParameterDirection.Input
            param.SourceColumn = "IDCode"
            param.SourceVersion = DataRowVersion.Current
        End With
 
        dAdapter.InsertCommand = New SqlCommand()
        With dAdapter.InsertCommand
            .CommandText = "INSERT INTO Table1(IDCode, NameUser, LastDate) " & _
                           "VALUES (IDCode, NameUser, LastDate) "
            .Connection = ConnectionDB
 
            param = .Parameters.Add(New SqlParameter("@IDCode", SqlDbType.BigInt))
            param.Direction = ParameterDirection.Input
            param.SourceColumn = "IDCode"
            param.SourceVersion = DataRowVersion.Current
 
            param = .Parameters.Add(New SqlParameter("@NameUser", SqlDbType.VarChar, 255))
            param.Direction = ParameterDirection.Input
            param.SourceColumn = "NameUser"
            param.SourceVersion = DataRowVersion.Current
 
            param = .Parameters.Add(New SqlParameter("@LastDate", SqlDbType.DateTime))
            param.Direction = ParameterDirection.Input
            param.SourceColumn = "LastDate"
            param.SourceVersion = DataRowVersion.Current
        End With
 
        dAdapter.DeleteCommand = New SqlCommand()
        With dAdapter.DeleteCommand
            .CommandText = "DELETE FROM Table1 WHERE IDCode=@IDCode"
            .Connection = ConnectionDB
        End With
        param = dAdapter.UpdateCommand.Parameters.Add(New SqlParameter("@IDCode", SqlDbType.BigInt))
        param.Direction = ParameterDirection.Input
        param.SourceColumn = "IDCode"
        param.SourceVersion = DataRowVersion.Original
        Return dAdapter
    End Function
 
    Private Sub FillDataTable() ' Заполняем 
        Dim cnn As New SqlConnection(ConnectionStr)
        Dim rows As Integer
        daDataGrid = GetDataAdapter(cnn)
        rows = daDataGrid.Fill(tblTable1)
        DataGridView1.DataSource = tblTable1
    End Sub
 
    Private Sub UpdateDataTable() ' Обновляем базу данных
        Dim rows As Integer
        rows = daDataGrid.Update(tblTable1)
    End Sub
 
End Class

OleDdbDaraAdapter.Update(iDataTable as DataTable) 'сохраняем изменения одной таблицы
OleDdbDaraAdapter.Update(iDataSet as DataSet) 'сохраняем изменения всех таблиц находящихся в DataSet

rows = daDataGrid.Update(tblTable1)

With dAdapter.UpdateCommand
     .CommandText = "UPDATE " & selected & " SET NameUser=@NameUser, LastDate=@LastDate " & _
                               "WHERE  IDCode=@IDCode"
     .Connection = ConnectionDB
 
  
     With dAdapter.InsertCommand
     .CommandText = "INSERT INTO " & selected & "(IDCode, NameUser, LastDate) " & _
                                "VALUES (@IDCode, @NameUser, @LastDate) "