Dim ds As New DataSet Private Sub btnGetData_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGetData.Click ds = New DataSet ds.ReadXml("c:\test.xml") DataGrid1.DataSource = ds End Sub Private Sub btnUpdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUpdate.Click ds.WriteXml("c:\test.xml") End Sub