Dim objConnection As OleDb.OleDbConnection = _
        New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=C:\...\Datenbank.mdb")
    Dim objDataAdapter As OleDb.OleDbDataAdapter
    Dim objDataSet As DataSet
    Dim objDataView As DataView
    Dim objCmdBuilder As OleDb.OleDbCommandBuilder
...
...
        objDataView = Nothing
        objDataSet = New DataSet()
        objConnection.Open()
        objDataAdapter = New OleDb.OleDbDataAdapter("SELECT * FROM Tabelle1", _
          objConnection)
        objDataAdapter.Fill(objDataSet, "Tabelle1")
        objDataView = New DataView(objDataSet.Tables("Tabelle1"))
        objCmdBuilder = New OleDb.OleDbCommandBuilder(objDataAdapter)
...
...
            Dim dblPos As Integer
            dblPos = 10
            With objDataSet.Tables("Tabelle1").Rows(dblPos)
                .Item("Spalte3") = "ABcdE"
                .Item("Spalte5") = "123"
            End With
            objDataAdapter.Update(objDataSet, "Tabelle1")
            objConnection.Close()
            objDataSet = Nothing