Un simple lector de archivos XML

Creamos un formulario similar al siguiente:
...Además agregamos un OpenFile Dialog

Public Class Form1
Dim ds As New DataSet 'Declaramos un dataset
Dim archivo As String
Sub abrir()
'Creamos una subrutina para mostrar el dialogo "Abrir Archivo "
OpenFile.ShowDialog() archivo = OpenFile.FileName
'La funcion ReadXml carga el archivo XML en el dataset
ds.ReadXml(archivo)
MsgBox("Carga del archivo correcta.", MsgBoxStyle.Information)
'Llenamos el datagrid
dgdatos.DataSource = ds.Tables(0).DefaultView
End Sub

Private Sub btnCargar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCargar.Click
'En el evento click del boton Cargar escribimos este codigo:
abrir() btnCargar.Enabled = False btnGrabar.Enabled = True
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
btnCargar.Enabled = True btnGrabar.Enabled = False
End Sub

Private Sub btnGrabar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGrabar.Click
'En el evento click del boton Grabar usamos la funcion WriteXml para guardar los cambios
ds.WriteXml(archivo)
MsgBox("Guardaste el archivo correctamente", MsgBoxStyle.Information)
End Sub
End Class