VB.Net Tutorial/Database ADO.net/DataSet

Build up a DataSet

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