Shared Sub Main()
        Dim nsArray As String() = {""}
 
        Dim MyDS As DataSet = New DataSet()
        MyDS.ReadXml("C:\Temp\7402_3_1_LP20100208.i8.qed.xml")
 
        Console.WriteLine("Inferred Relational Structure:")
 
        Dim myTable As DataTable
        For Each myTable In MyDS.Tables
            Console.WriteLine("Table {0}", myTable.TableName)
            Dim myColumn As DataColumn
            For Each myColumn In myTable.Columns
                Console.WriteLine("  {0}", myColumn.ColumnName)
            Next
        Next
    End Sub