从XML文件VB向列表框添加项目（仅运行一次）

Question

这里我尝试将项目从XML文件添加到列表框中。该项目仅在我第一次单击时出现，之后再也不会出现。我认为这是因为一旦点击按钮，程序只读取xml文件只有几分之一秒，而且再也不会读取，但我不太确定。 这是代码：

Private Sub btnCapp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCapp.Click


    Dim document As XmlReader = New XmlTextReader("C:\Users\nkarim17\Documents\Visual Studio 2010\Projects\Company_App\Company_App\bin\Debug\MyName.xml")

    ListBox1.Items.Add("Cappuccino")

    If (System.IO.File.Exists("C:\Users\nkarim17\Documents\Visual Studio 2010\Projects\Company_App\Company_App\bin\Debug\MyName.xml")) Then

        While (document.Read())

            Dim type = document.NodeType

            If (type = XmlNodeType.Element) Then

                If (document.Name = "Cap") Then

                    ListBox2.Items.Add(document.ReadInnerXml.ToString())

                End If

            End If

        End While

    Else

        MessageBox.Show("The File was not found")

    End If


End Sub

这是xml文件：

<?xml version="1.0" encoding="utf-8"?>
<!--XML Database.-->
<Data>
  <Person>
    <Cap>3</Cap>
  </Person>
</Data>

如果有任何解决方法，请告诉我。谢谢:)）