Create a console application that will show the XML,XMLSchema representation of data stored in DataSet using GetXML,GetXMLSchema method

Form1.vb[Design]

Imports System.Data

Imports System.Data.OleDb

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim conn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\db1.mdb"

Dim mycon As New OleDbConnection(conn)

Dim q1 As String = "select * from t1"

Dim da As New OleDbDataAdapter(q1, mycon)

Dim ds As New DataSet

da.Fill(ds, "t1")

ds.WriteXml("d:\prac.xml")

ds.WriteXmlSchema("d:\prac1.xml")

MessageBox.Show(ds.GetXml)

MessageBox.Show(ds.GetXmlSchema)

DataGridView1.DataSource = ds.Tables(0).DefaultView

End Sub

End Class