Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
Dim c As Control
Dim dr As DataRow
Dim i As Integer
 
i=0
   For Each c In Me.Controls
         dr = dsMyDataSet.Tables("Bestelldetails").NewRow
         Select Case i
                     Case 0
                          dr.Item("Bestellnr")= c.Text
                     Case 1
 
         End Select
            'dr(0) ist bei Dir AutoWert
            dr(1) = BestellNr
            dr(2) = Artikel
            dr(3) = Menge
            dr(4) = Preis
         dsMyDataSet.Tables("Bestelldetails").Rows.Add(dr)
      End If
   Next
End Sub

Ciao

J?rgen

PS: geht nicht gibt's nicht