Сохранение изменений в БД из DataGridView - Visual Basic .NET - Ответ 7114025

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