DataGridView不重建vb.net中的xml文件内容

我正试图从DataGridView中的xml文件重建表值。首先，我读取xml文档，然后加载它作为数据源在DataGridView

Try
    Dim ds As DataSet = New DataSet
    ds.ReadXml("data.xml")
    bs.DataSource = ds.Tables(0)
    GridView.DataSource = bs
Catch ex As Exception
    MessageBox.Show(ex.ToString)
End Try

现在在一个按钮上单击我想重建数据表我已经尝试了不同的方法，但不工作

OnButton_Click
    bs.ResetBindings(False) ' Only blinks but does not work '
OnButton_Click
    bs.Clear()
    bs.DataSource = ds.Tables(0) ' Still does not work '
OnButton_Click
    GridView.DataSource = Nothing
    GridView.DataSource = bs
OnButton_Click
    GridView.Refresh()

谁能指出我错在哪里

--------------------- 更新 -------------------

XML文件是单独生成和维护的，而不是通过在gridview本身中编辑

Private Sub addClient(ByRef hwid As String, ByRef dataID As String, ByRef dataValue As String)
    Dim xmlDoc As New XmlDocument()
    xmlDoc.Load(_datapath)
    Dim rootNode As XmlNode = xmlDoc.SelectSingleNode("users")
    Dim userNodes As XmlNodeList = rootNode.SelectNodes("user")
    Dim userNode As XmlNode = rootNode.SelectSingleNode("user")
    Dim Isuid As Boolean = False

    For Each uNode As XmlNode In userNodes
        If IsNothing(uNode.Attributes("uid")) Then
            Dim idAttr As XmlAttribute = xmlDoc.CreateAttribute("uid")
            idAttr.InnerText = hwid
            uNode.Attributes.Append(idAttr)
            Dim idNode As XmlNode = xmlDoc.CreateElement(dataID)
            idNode.InnerText = dataValue
            userNode.AppendChild(idNode)
        Else
            If uNode.Attributes("uid").Value = hwid Then
                ' Alter data '
                Isuid = True
                userNode = uNode
                GoTo end_of_for
            End If
        End If
    Next

end_of_for:
    If Isuid = True Then
        ' Alter the data '
        If IsNothing(userNode.SelectSingleNode(dataID)) Then
            Dim idNode As XmlNode = xmlDoc.CreateElement(dataID)
            idNode.InnerText = dataValue
            userNode.AppendChild(idNode)
        Else
            Dim idNode As XmlNode = userNode.SelectSingleNode(dataID)
            idNode.InnerText = dataValue
            userNode.AppendChild(idNode)
        End If
    Else
        ' Create a new one '
        If rootNode.SelectSingleNode("user").Attributes("uid").Value <> hwid Then
            userNode = xmlDoc.CreateElement("user")
            rootNode.AppendChild(userNode)
            Dim idAttr As XmlAttribute = xmlDoc.CreateAttribute("uid")
            idAttr.InnerText = hwid
            userNode.Attributes.Append(idAttr)
            Dim idNode As XmlNode = xmlDoc.CreateElement(dataID)
            idNode.InnerText = dataValue
            userNode.AppendChild(idNode)
        End If
    End If
do_exit:
    xmlDoc.Save(_datapath)
End Sub

这是我剩下的代码

Private _datapath As String = "data.xml"
Dim bs As New BindingSource
Dim ds As New DataSet
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    ' Add user element also '
    If Not File.Exists(_datapath) Then
        Dim xmlDoc As New XmlDocument()
        Dim docNode As XmlNode = xmlDoc.CreateXmlDeclaration("1.0", "UTF-8", Nothing)
        xmlDoc.AppendChild(docNode)
        Dim rootNode As XmlNode = xmlDoc.CreateElement("users")
        xmlDoc.AppendChild(rootNode)
        Dim userNode As XmlNode = xmlDoc.CreateElement("user")
        rootNode.AppendChild(userNode)
        xmlDoc.Save(_datapath)
    End If
    Try
        ds.ReadXml(_datapath)
        bs.DataSource = ds.Tables(0)
        ClientView.DataSource = bs
    Catch ex As Exception
        MessageBox.Show(ex.ToString)
    End Try
End Sub
Private Sub btn1_Click(sender As Object, e As EventArgs) Handles btn1.Click
bs.ResetBindings(False)
End Sub