For Each oControl As System.Windows.Forms.Control In Me.grbStrategien.Controls
                If TypeOf oControl Is Label Then
                    Row1 = DS_IID.Tables("TBLABEL_EDIT").NewRow()
                    Row1.Item("FORMULARNAME") = "frmTitel"
                    Row1.Item("LBL_NAME") = oControl.Name
                    Row1.Item("LBL_CAPTION") = oControl.Text
                    DS_IID.Tables("TBLABEL_EDIT").Rows.Add(Row1)
                End If
        Try
            Dim dt As New DataTable
            dt = Me.DS_IID.TBLABEL_EDIT
            dt.WriteXml(Application.UserAppDataPath.ToString & "\config\" & _
              "TBLABEL_EDIT.xml")
            MsgBox("Die Daten wurden erfolgreich gespeichert!")
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical, "Die Label-Konfigtabellen" & _
              "konnten nicht gespeichert werden!")
        End Try
            Next

Dim DT As New DataTable
        Dim DR As DataRow
 
        ' --- Zugriff auf Tabelle
        DT = DS_IID.TBLABEL_EDIT
        For Each DR In DT.Rows
            'wie gehts hier weiter?
        Next

Ich glaube nicht, dass Zitronenfalter wirklich Zitronen falten