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
	For Each c In Me.Controls
		If c.Text <> "" Then
			dr = dsMyDataSet.Tables("Bestelldetails").NewRow
				'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