Public Class Form6
    '1.Создаем ДатаСет
    Dim AccessDS As New Data.DataSet
    '2.Создаем ДатаАдаптер
    Dim AccessDA As Data.OleDb.OleDbDataAdapter = New Data.OleDb.OleDbDataAdapter


    Private Sub Form6_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '3.Определяем строку подключения 
        Dim ConnString As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & Application.StartupPath & "\akt.mdb"
        '4. Собственно подключение
        Dim Conn As New Data.OleDb.OleDbConnection(ConnString)
        '5. Определяем строку для выборки данных
        Dim strSelect As String = "SELECT AktSumm.* FROM AktSumm"
        '6 Создаем команду
        Dim AccessCommand As New Data.OleDb.OleDbCommand(strSelect, Conn)
        '7.Bulder для автоматической записи изменений в базу 
        ' Автоматически генерируем InsertCommand
        Dim cmdBulder As Data.OleDb.OleDbCommandBuilder = New Data.OleDb.OleDbCommandBuilder(AccessDA)
        'Dim dtTable As Data.DataTable = AccessDS.Tables.Item("AktSumm")
        'Установка команды Select
        Me.AccessDA.SelectCommand = AccessCommand
        '8.Установка команды обновления данных в ДатаАдаптер
        AccessDA.UpdateCommand = cmdBulder.GetUpdateCommand
        '9.Установка команды добавления данных в ДатаАдаптер
        AccessDA.InsertCommand = cmdBulder.GetInsertCommand

        '10.Заполняем ДатаСет данными
        AccessDA.Fill(AccessDS, "AktSumm")
        Dg.DataSource() = AccessDS.Tables("AktSumm")


    End Sub

    Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles Dg.CellContentClick

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        MsgBox(AccessDA.UpdateCommand.CommandText)
        MsgBox(AccessDA.InsertCommand.CommandText)
' Сохраняем данные
        AccessDA.Update(AccessDS.Tables("AktSumm"))
        AccessDS.AcceptChanges()

    End Sub

Application.StartupPath & "\akt.mdb