XML VB.Net

Imports System
Imports System.IO
Imports System.Xml
Public Class Sample
  Public Shared Sub Main()
        Dim doc As New XmlDocument()
        doc.Load("books.xml")
        Dim nodeReader As New XmlNodeReader(doc)
        
        Dim settings As New XmlReaderSettings()
        settings.ValidationType = ValidationType.Schema
        settings.Schemas.Add("urn:bookstore-schema", "books.xsd")
        
        Dim reader As XmlReader = XmlReader.Create("book2.xml")
        
        While reader.Read()
          If reader.IsStartElement() Then
            If reader.Prefix = String.Empty Then
              Console.WriteLine("<{0}>", reader.LocalName)
            Else
              Console.Write("<{0}:{1}>", reader.Prefix, reader.LocalName)
              Console.WriteLine(" The namespace URI is " + reader.NamespaceURI)
            End If
          End If
        End While
        reader.Close()
    End Sub
End Class