Zitat:

Und hier http://www.vbarchiv.net/forum/id22_i32809t32808.html hbe ich beschrieben wie du auf diese Daten zugreifen kannst.

Dim dt As DataTable = deinDataset.Tables("Untereigenschaft")
MsgBox(dt.Rows(0)("Untereigenschaft_Text")) ' "Untereigenschaft_Text" = _
  "Untereigenschaft" ? --> InvalidCastException // Umwandlung ist ungütlig
---

Dim dt As DataTable = ds.Tables("dt1") ' Die Datensätze heißen bei mir leider 
' alle gleich "fd". Das war nur zu verdeutlichung. Mein Fehler; entschuldige!
        Dim drel As DataRelation = dt.ChildRelations(0)
        For Each dr As DataRow In dt.Rows
            Dim dre() As DataRow = dr.GetChildRows(drel)
            Dim dt1 As DataTable = dre(0).Table
            Debug.WriteLine(dt1.TableName)
            Dim drel1 As DataRelation = dt1.ChildRelations(0) ' Eine nicht 
            ' behandelte Ausnahme des Typs 'System.IndexOutOfRangeException' 
            ' ist in system.data.dll aufgetreten. // Zusätzliche Informationen: 
            ' Bezug 0 wurde nicht gefunden.
            For Each dr1 As DataRow In dre
                Dim drue() As DataRow = dr1.GetChildRows(drel1)
                Dim dt2 As DataTable = drue(0).Table
                Debug.WriteLine(dt2.TableName)
                For Each dr2 As DataRow In drue
                    Debug.WriteLine(dr2(0).ToString())
                Next
            Next
        Next

MfG
Visual Studio .Net Team Suite 2008 - Meine neue lieblings IDE