Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
        Dim Cn As New ADODB.Connection
        Cn.Provider = "Microsoft.Jet.OLEDB.4.0"
        Cn.ConnectionString = "Data Source=C:\testprog\dbtest\dbtest.mdb"
        Cn.Open()
        Dim SelectCmd1 As OleDbCommand = New OleDbCommand("select * from" & _
          "orders", Cn)
        Dim SelectCmd2 As OleDbCommand = New OleDbCommand("select * from" & _
        "t_durch_autrag", Cn)
        Dim dAdapt1 As OleDbDataAdapter = New OleDbDataAdapter
        Dim dAdapt2 As OleDbDataAdapter = New OleDbDataAdapter
        dAdapt1.SelectCommand = SelectCmd1
        dAdapt2.SelectCommand = SelectCmd2
 
        Dim myDataSet As DataSet = New DataSet("tmpTab")
        dAdapt1.Fill(myDataSet, "orders")
        dAdapt1.Fill(myDataSet, "t_durch_auftrag")
        Dim ordersTab As DataTable = myDataSet.Tables("orders")
        Dim timeTab As DataTable = myDataSet.Tables("t_durch_auftrag")
        Dim Spalte As Integer
        Dim Zeile As Integer
        For Zeile = 0 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)
 
                dAdapt1.Update(myDataSet, "orders")
 
            Next
        Next
 
        Me.DataGrid1.DataSource = myDataSet.Tables("orders")
    End Sub
End Class