работа с базой данных

DataGridView.CellEndEdit

    'процедура обновления БД
    Sub UpdateDB(ByVal TableName As String, ByVal Pole As String, ByVal KeyValue As Integer, ByVal Value As String)
        Conn = New OleDbConnection
        'создаём и открываем соединение с базой данных
        Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & BasePoot
        Comm = New OleDb.OleDbCommand("UPDATE [" & TableName & "] SET [" & Pole & "]='" & Value & "' WHERE  [kod]=" & KeyValue, Conn)
        Conn.Open()
        Comm.ExecuteNonQuery()
        Conn.Close()
    End Sub

    'Событие окончания изменения ячейки в БД
    Private Sub DataGridView_CellEndEdit(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView.CellEndEdit
            Try
                UpdateDB(Название таблицы в БД, sender.Columns(sender.CurrentCell.ColumnIndex).Name, sender.Item(0, sender.CurrentRow.Index).Value, sender.CurrentCell.Value)
            Catch ex As Exception
                MessageBox.Show(ex.Message)
            End Try
    End Sub

    'процедура обновления БД
    Sub UpdateDB(ByVal TableName As String, ByVal Pole As String, ByVal KeyValue As Integer, ByVal Value As String)
        Conn = New OleDbConnection
        'создаём и открываем соединение с базой данных
        Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & BasePoot
        Comm = New OleDb.OleDbCommand("UPDATE [" & TableName & "] SET [" & Pole & "]='" & Value & "' WHERE  [kod]=" & KeyValue, Conn)
        Conn.Open()
        Comm.ExecuteNonQuery()
        Conn.Close()
    End Sub

DataGridView.DataSource