Dim xpn As XPathNavigator = d(0).SelectSingleNode("rowset")
        Dim type As String = xpn.GetAttribute("name", "")

        Dim doc As New XmlDocument()
        doc.Load(...)
        For Each rowset As XmlElement In doc.SelectNodes("//rowset")
            Debug.WriteLine("name=" & rowset.GetAttribute("name") & "  key=" & _
              rowset.GetAttribute("key"))
            For Each row As XmlElement In rowset.SelectNodes("row")
                Debug.WriteLine(row.OuterXml)
            Next
        Next

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist