' Meine Positionstabelle also n Elemente
       Dim dtAuftragPos As DataTable = Form1.myDataSet.Tables( _
         "tbl_auftragsposition")
        rowAuftragPos = myDataSet.Tables("tbl_auftragsposition").NewRow()
 
        ' Die Auftragstabelle
        Dim dtAuftrag As DataTable = Form1.myDataSet.Tables("Auftrag")
       myDataset.Relations.
        rowAuftrag = myDataSet.Tables("Auftrag").NewRow()
 
 
       ' Der Inhalt für Tabelle Auftrag
 
 
        With rowAuftrag              
 
 
            ' Auftrag_ID ist Autowert
 
            .Item("Kunden_ID") = Me.textbox1.text
            .Item("datum") = Date.Now
            .Item("zusatz") = Me.ZusatzTextBox.Text
 
        End With
 
        ' Jetzt die Positionen durchgehen
 
        For i = 0 To DataGridView2.RowCount - 1
 
            With rowAuftragPos
 
 
                'Auftrags ID????     
 
 
                ' Zelle mit Position
                .Item("Pos_nr") = DataGridView2.Rows(i).Cells().Item(1).Value
 
                ' Zelle mit Positionstext
                .Item("Pos_text") = DataGridView2.Rows(i).Cells().Item(2).Value
 
                ' Zelle mit Menge
                .Item("Menge") = DataGridView2.Rows(i).Cells().Item(3).Value
 
                ' Zelle mit Preis
                .Item("Preis") = DataGridView2.Rows(i).Cells().Item(4).Value
 
                ' Zelle mit Artikelid
                .Item("Artikel_id") = DataGridView2.Rows(i).Cells().Item( _
                  0).Value
 
            End With
 
        Next i