VB.Net Tutorial/Database ADO.net/DataSet XML

Load XML data to 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
                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
        Catch Ex As Exception
            Console.WriteLine("Exception: " & Ex.Message)
            Console.WriteLine(Ex.ToString)
        End Try
    End Sub
End Module

Save data in DataSet to xml file

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")
            Console.ReadLine()
        Catch Ex As Exception
            Console.WriteLine("Exception: " & Ex.Message)
            Console.WriteLine(Ex.ToString)
        End Try
    End Sub
End Module