Sub Page_Load(Sender As Object, E as EventArgs) ' Response.write("XML Example") Dim xmlFilename As String xmlFilename= "C:\Data\atoms.xml" Dim newDataSet As New DataSet newDataSet.ReadXML(xmlFilename) DataGrid1.DataSource = newDataSet DataGrid1.DataBind() End Sub