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