Синхронизация datagridview и БД ms sql server 2008

Imports System.Data.SqlClient
Public Class Form1
    Public daDataGrid As SqlDataAdapter
    Private tblTable1 As New DataTable
    Private СтрокаПодключения 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 FillDataGrid() ' Заполняем DGV
        Dim cnn As New SqlConnection(СтрокаПодключения)
        Dim rows As Integer
        daDataGrid = GetDataAdapter(cnn)
        rows = daDataGrid.Fill(tblTable1)
        DataGridView1.DataSource = tblTable1
    End Sub
 
    Private Sub UpdateDataGrid() ' Обновляем базу данных
        Dim rows As Integer
        rows = daDataGrid.Update(tblTable1)
    End Sub
 
 
End Class