Private Sub SchreibeDataSet(ByVal tabellenname As String)
 
        Dim aSelCmd As New OleDbCommand("SELECT * FROM " & tabellenname, aconn)
        ada.SelectCommand = aSelCmd
 
        Dim cb As New OleDbCommandBuilder(ada)
 
        ds.AcceptChanges()
 
        Try
            aconn.Open()
            ada.Update(ds, tabellenname)
            gui.statusbar.Text = tabellenname & " wurde gesichert."
            gui.dg.SetDataBinding(ds, tabellenname)
            'MessageBox.Show(cb.GetInsertCommand.CommandText)
        Catch ex As Exception
            MessageBox.Show(ex.ToString())
        Finally
            aconn.Close()
        End Try
 
    End Sub

Es ist alles eine Frage der
Relation und Perspektive.