Dim DT As New DataTable
        Dim DR As DataRow
        ' --- Zugriff auf Tabelle
        DT = DS_IID.TBLABEL_EDIT
        For Each oControl As System.Windows.Forms.Control In _
          Me.grbArtikel1.Controls
            If TypeOf oControl Is Label Then
                For Each DR In DT.Rows
                    If oControl.Name.ToString = DR.Item("LBL_NAME") Then
                        oControl.Text = DR.Item("LBL_CAPTION")
                    End If
                Next
            End If
        Next

Ich glaube nicht, dass Zitronenfalter wirklich Zitronen falten