Read the Content of XML file into the DataSet

This is the inverse of the last post!

The code :
Imports System
Imports System.Data
Imports System.Data.SqlClient

Private Sub btnReadXMLData_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnReadXMLData.Click

Dim dsPubs As New DataSet()

' Read in XML from file
dsPubs.ReadXml("Pubs.xml")

' Bind DataSet to Data Grid
grdData.DataMember = "publishers"
grdData.DataSource = dsPubs

End Sub

Hope it helps and good luck, any suggestion or questions post a comment !