Private Shared Sub DemonstrateGetXml()
    ' Create a DataSet with one table 
    ' containing two columns and 10 rows.
    Dim dataSet As New DataSet("dataSet")
    Dim table As DataTable = dataSet.Tables.Add("Items")
    table.Columns.Add("id", Type.GetType("System.Int32"))
    table.Columns.Add("Item", Type.GetType("System.String"))

    ' Add ten rows.
    Dim row As DataRow
    Dim i As Integer
    For i = 0 To 9
        row = table.NewRow()
        row("id") = i
        row("Item")= "Item" & i
        table.Rows.Add(row)
    Next

    ' Display the DataSet contents as XML.
    Console.WriteLine( dataSet.GetXml() )
End Sub

' 导入命名空间
Imports System.Data.SqlClient
Imports System.Data

Module Module1

    Sub Main()
        Try
            Dim DS As New DataSet()

            DS.ReadXml("Authors.XML")

            Dim XMLContent As String = DS.GetXml()

            Dim I As Integer

            For I = 0 To DS.Tables(0).Rows.Count - 1
                DS.Tables(0).Rows(I).Item("Author") = UCase(DS.Tables(0).Rows(I).Item("Author"))
            Next

            For I = 0 To DS.Tables(0).Rows.Count - 1
                Console.WriteLine(DS.Tables(0).Rows(I).Item("Title"))
                Console.WriteLine(DS.Tables(0).Rows(I).Item("Author"))
                Console.WriteLine(DS.Tables(0).Rows(I).Item("Publisher"))
                Console.WriteLine(DS.Tables(0).Rows(I).Item("Price"))
            Next

            DS.WriteXml("NewAuthors.xml")

        Catch Ex As Exception
            Console.WriteLine("Exception: " & Ex.Message)
            Console.WriteLine(Ex.ToString)
            Console.ReadLine()
        End Try

    End Sub

End Module