Imports System Imports System.Xml Imports System.Xml.Schema Imports System.IO Imports System.Collections Imports System.Data Public Class MainClass Shared Sub Main() Dim nsArray As String() = {""} Dim MyDS As DataSet = New DataSet() MyDS.ReadXml("book.xml") MyDS.WriteXmlSchema("InferredSchema.xds") End Sub End Class