Dim ds As New DataSet
        ds.ReadXmlSchema("pfad\zu\xnmlschemata.xsd")
        ds.ReadXml("pfad\zu\xmlfile.xml")
 
        For Each tbl As DataTable In ds.Tables
            Debug.WriteLine("TableName: " & tbl.TableName & ", ColumnCount: " & _
              tbl.Columns.Count & ", RowCount: " & tbl.Rows.Count)
        Next