Private Sub btOpen_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles btOpen.Click
        Dim ofd As New OpenFileDialog
        Dim ds As New System.Data.DataSet("DataSet")
 
        ofd.Filter = "XML files (*.XML)|*.xml|All files (*.*)|*.*"
        ofd.FilterIndex = 1
        If( ofd.ShowDialog() = DialogResult.OK) THEN
            ds.ReadXml(ofd.FileName)
            dGrid.DataSource = ds.Tables(0)
        End If
    End Sub