XML VB.Net

Imports System
Imports System.Xml
Imports System.Xml.Schema
Imports System.IO
Imports System.Collections
Imports System.Data
Public Class MainClass
    
    Shared Sub Main()
        Dim MyDS As New DataSet()
        MyDS.ReadXmlSchema("book.xdr")
        Console.WriteLine("Book Structure:")
        Dim Table As DataTable
        For Each Table In MyDS.Tables
            Console.WriteLine("Table {0}", Table.TableName)
            Dim Column As DataColumn
            For Each Column In Table.Columns
                Console.WriteLine("  {0}", Column.ColumnName)
            Next
        Next
    End Sub
End Class
'book.xdr
'
'
'   '      model = "closed" />
'   
'      
'   
'   
'      
'   
'