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
     if TypeOf  c is Label then
         dr = dsMyDataSet.Tables("Bestelldetails").NewRow
         Select Case i
                     Case 0
                          dr.Item("Bestellnr")= c.Text
                     Case 1
                          dr.Item("Artikelname")= c.Text
                     Case 2
                          dr.Item("Preis")= c.Text
                          dsMyDataSet.Tables("Bestelldetails").Rows.Add(dr)
         End Select
         i+=1
         if i=3 then i=0
    End If
  Next
End Sub

Ciao

J?rgen

PS: geht nicht gibt's nicht