Dim ds As DataSet
ds.Tables.Add(GetTable("Tabelle1"))
ds.Tables.Add(GetTable("Tabelle2"))
ds.Tables.Add(GetTable("Tabelle3"))
 
  Public Function GetTable(TableName As String) As DataTable
    ' DataAdapter
    Dim DA As New OleDbDataAdapter(String.Format("SELECT * FROM {0}", _
      TableName), Connection)
    Dim CB As New OleDbCommandBuilder(DA)
    DA.DeleteCommand = CB.GetDeleteCommand()
    DA.InsertCommand = CB.GetInsertCommand()
    DA.UpdateCommand = CB.GetUpdateCommand()
    ' Tabelle
    Dim ret As New DataTable(TableName)
    DA.FillSchema(ret, SchemaType.Source)
    DA.Fill(ret)
    ret.ExtendedProperties.Add("DA", DA)
    Return ret
 
  End Function

Dim Trans As OleDbTransaction = Connection.BeginnTransaction()
 
Try
 For Each t As DataTable In ds.Tables
    Dim da As OleDbDataAdapter
    da = t.ExtendedProperties("DA")
    da.SelectCommand.Transaction = Trans 
    da.InsertCommand.Transaction = Trans 
    da.UpdateCommand.Transaction = Trans 
    da.DeleteCommand.Transaction = Trans 
    da.Update(t)
  Next
 
 Trans.Commit()
Catch ex As Exception
  Trans.Rollback()
  Throw
End Try

Dim ds As DataSet
ds.Tables.Add(GetTable("Tabelle1"))
ds.Tables.Add(GetTable("Tabelle2"))
ds.Tables.Add(GetTable("Tabelle3"))
 
' Lösch und Update-Weitergabe in dem DataSet (unter anderem)
ds.Relations.Add(ds.Tables("Tabelle1").Columns("ID"), ds.Tables( _
  "Tabelle2").Columns("refTab1"))
ds.Relations.Add(ds.Tables("Tabelle2").Columns("ID"), ds.Tables( _
"Tabelle3").Columns("refTab2"))
 
  Public Function GetTable(TableName As String) As DataTable
    ' DataAdapter
    Dim DA As New OleDbDataAdapter(String.Format("SELECT * FROM {0}", _
      TableName), Connection)
    Dim CB As New OleDbCommandBuilder(DA)
    DA.DeleteCommand = CB.GetDeleteCommand()
    DA.InsertCommand = CB.GetInsertCommand()
    DA.UpdateCommand = CB.GetUpdateCommand()
    ' Tabelle
    Dim ret As New DataTable(TableName)
    DA.FillSchema(ret, SchemaType.Source)
    DA.Fill(ret)
    ret.ExtendedProperties.Add("DA", DA)
    Return ret
 
  End Function

Dim WithEvents adapter As OleDbDataAdapter
 
public Sub Save()
  Dim Trans As OleDbTransaction = Connection.BeginnTransaction()
 
  Try
    For Each t As DataTable In ds.Tables
      adapter = t.ExtendedProperties("DA")
      adapter.SelectCommand.Transaction = Trans 
      adapter.InsertCommand.Transaction = Trans 
      adapter.UpdateCommand.Transaction = Trans 
      adapter.DeleteCommand.Transaction = Trans 
      adapter.Update(t)
    Next
 
   Trans.Commit()
  Catch ex As Exception
    Trans.Rollback()
    Throw
  End Try
End Sub
 
' In dem Event wird beim Insert die Neue ID Abgefragt
Private Sub adapter_RowUpdated(sender As Object, e As OleDbRowUpdatedEventArgs) _
  Handles adapter.RowUpdated
  If e.StatementType = StatementType.Insert Then
    e.Row("ID") = GetMaxKeyValue(e.Row.Table.TableName) ' In dieser Function 
    ' wird "SELECT MAX(ID)" abgefragt
  End If
End Sub