Imports System
Imports System.Data

Module Module1
    Private ds As New DataSet

    Sub Main()
        Dim strPath As String = "C:\Documents and Settings\Dan\Desktop\CodeSnippetCompiler\SavedSnippets\SampleData\"
        Dim strFile As String = "Classes.XML"
        ds.ReadXml(strPath & strFile)
        Call ShowDataSet()
        AnyKey()
    End Sub

    Sub AnyKey()
        Console.WriteLine("")
        Console.WriteLine("Press Enter to Continue")
        Console.ReadLine()
    End Sub


    Sub ShowDataSet()
        Dim dt As New DataTable
        Dim dr As DataRow
        dt = ds.Tables(0)
        ' Iterate through the columns.
        Dim n As Integer
        For n = 0 To dt.Columns.Count - 1
            Console.WriteLine(dt.Columns(n).ColumnName)
        Next

        Dim i As Integer = -1
        For Each dr In dt.Rows
            i += 1
            Console.WriteLine("")
            Console.WriteLine("Record #" & i.ToString)
            Console.WriteLine("   Date: " & dr.Item("Date").toString)
            Console.WriteLine("   Time: " & dr.Item("DayOrNight").toString)
            Console.WriteLine("         " & dr.Item("Description").toString)
            Console.WriteLine("         " & dr.Item("Status").toString)
        Next
    End Sub


End Module