Dim myDataSet As DataSet = New DataSet("tmpTab")
        dAdapt1.Fill(myDataSet, "orders")
        dAdapt2.Fill(myDataSet, "times")
        Dim ordersTab As DataTable = myDataSet.Tables("orders")
        Dim timeTab As DataTable = myDataSet.Tables("times")
        Dim Spalte As Integer
        Dim Zeile As Integer
        For Zeile = 1 To timeTab.Rows.Count - 1
            For Spalte = 1 To timeTab.Columns.Count - 1
                Dim newrow As DataRow
                newrow = ordersTab.NewRow()
                With newrow
                    .Item("machine") =  timeTab.Columns(Spalte)
                End With
                ordersTab.Rows.Add(newrow)
                ordersTab.AcceptChanges()
                'dAdapt1.Update(myDataSet, "orders")
 
            Next
        Next