’写：　　　
 Private Sub Button4_Click(sender As System.Object,e As System.EventArgs) Handles Button4.Click   
        Dim ds As New DataSet
        ds = DataGridView1.DataSource
        ds.WriteXml("test2.xml")
    End Sub
‘读取
    Private Sub Button5_Click(sender As System.Object,e As System.EventArgs) Handles Button5.Click
        Dim ds As New DataSet
        ds.ReadXml("test.xml")
        DataGridView1.DataSource = ds
        DataGridView1.DataMember = "node"
    End Sub

'xml:
<?xml version="1.0" standalone="yes"?>
<xml>
  <node id="1">
    <name>myname</name>
    <place>country</place>
  </node>
</xml>