Imports System.Data.OleDb
Public Class Form1

    Public DS As DataSet
    Private DATASET2 As DataSet
    Public DA As OleDb.OleDbDataAdapter
    Public FirstCell As DataGridViewCell

    Private CO As New OleDb.OleDbConnection("Data Source=""C:\DBDocs\Docs_be.accdb"";User ID=Admin;Provider=""Microsoft.ACE.OLEDB.12.0"";")

    Private CB As OleDb.OleDbCommandBuilder
    Dim COMMAND = New OleDbCommand

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub


    Private Sub DataGridView1_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellClick

        Dim cell As DataGridViewCell = CType(DataGridView1.Rows(e.RowIndex).Cells(e.ColumnIndex), DataGridViewCell) 

        Me.TextBox1.Text = cell.Value.ToString 
        Me.TextBox2.Text = DataGridView1.Columns(e.ColumnIndex).HeaderText 
        Dim FirstCell As DataGridViewCell = CType(DataGridView1.Rows(e.RowIndex).Cells(0), DataGridViewCell)
        Me.TextBox3.Text = FirstCell.Value.ToString
        Dim DS As New DataSet
        If CO.State = ConnectionState.Closed Then CO.Open() 
        DA = New OleDb.OleDbDataAdapter("Select * From [Документы] where ([Код] = " & FirstCell.Value.ToString & ")", CO)
        CB = New OleDb.OleDbCommandBuilder(DA)

        DA.Fill(DS, "Документы")
        DataGridView2.DataSource = DS.Tables("Документы")
        CO.Close()
    End Sub

    Private Sub Button2_click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click 'ByVal sender As System.Object, ByVal e As System.EventArgs

        CreateCmdsAndUpdate("Data Source=""C:\DBDocs\Docs_be.accdb"";User ID=Admin;Provider=""Microsoft.ACE.OLEDB.12.0"";", "Select * From Документы")

    End Sub


    Private Sub TextForFind_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextForFind.TextChanged
        Dim CO As New OleDbConnection("Data Source=""C:\DBDocs\Docs_be.accdb"";User ID=Admin;Provider=""Microsoft.ACE.OLEDB.12.0"";")
        CO.Open()
        Dim COMMANDFORVIEW As New System.Data.OleDb.OleDbCommand("Select * From [Документы] where ([Тип документа] like '%" & Me.TextForFind.Text & "%')", CO)
        Dim ADAPTER As New OleDbDataAdapter(COMMANDFORVIEW)

        Dim DATASET2 As New DataSet

        ADAPTER.Fill(DATASET2, "Документы")
        DataGridView1.DataSource = DATASET2
        DataGridView1.DataMember = "Документы"
        CO.Close()
    End Sub


    Public Function CreateCmdsAndUpdate(ByVal connectionString As String, ByVal queryString As String) As DataSet

        Using connection As New OleDbConnection(connectionString)
            Dim adapter As New OleDbDataAdapter()
            adapter.SelectCommand = New OleDbCommand(queryString, connection)
            Dim builder As OleDbCommandBuilder = New OleDbCommandBuilder(adapter)

            connection.Open()

            Dim customers As DataSet = New DataSet
            Dim DS As DataSet = New DataSet
            adapter.Fill(DS)
 
            COMMAND.CommandText = "UPDATE [Документы] SET [Тип документа] = ?, [Номер] = ?  WHERE [Код] = ?"
            COMMAND.Parameters.Add("Тип документа", OleDbType.VarWChar, 50, "Тип документа")
            COMMAND.Parameters.Add("Номер", OleDbType.VarWChar, 50, "Номер")
            COMMAND.Parameters.Add(New OleDbParameter("Original_Код", OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Код", System.Data.DataRowVersion.Original, Nothing))
            adapter.UpdateCommand = COMMAND
            COMMAND.Connection = connection

            adapter.Update(DS)

            Dim rows() As DataRow = customers.Tables(0).Select(Nothing, Nothing, DataViewRowState.Added)
            adapter.Update(rows)

            Return customers
        End Using
    End Function


End Class

ADAPTER.Update(DATASET2, "Документы")

"в System.Threading.ThreadHelper.ThreadStart()</StackTrace><ExceptionString>System.ArgumentNullException: Значение не может быть неопределенным."
"Имя параметра: dataSet"

Private DATASET2 As DataSet