Xml issues with repeating
I need help with an Xml issue. I can't get my routine to work repeatedly. In other words, the Sub shown below can only be used once. Then I have to exit from the app so the xml file can be "reloaded" (?). Only then can I create another entry. What is wrong with my programming? I'm sure there are many minor issues, but I would prefer to concentrate on the ones that directly affect this problem. However, any help is appreciated.
[CODE]
Imports System.Xml
Public Class Form1
Private fn As String = My.Application.Info.DirectoryPath & "\Entry.xml"
Dim doc As New XmlDocument
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
doc.Load(fn)
End Sub
Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim _Name As String = InputBox("Name?")
Dim _Score As String = InputBox("Score?")
Dim _Date As String = InputBox("Date?")
Dim HSE As XmlElement = doc.CreateElement("HSE")
Dim nameElem As XmlElement = doc.CreateElement("Name")
nameElem.InnerText = _Name
Dim scoreElem As XmlElement = doc.CreateElement("Score")
scoreElem.InnerText = _Score
Dim dateElem As XmlElement = doc.CreateElement("Date")
dateElem.InnerText = _Date
HSE.AppendChild(nameElem)
HSE.AppendChild(scoreElem)
HSE.AppendChild(dateElem)
doc.DocumentElement.AppendChild(HSE)
doc.Save(fn)
doc = Nothing
Dim xmlFile As XmlReader
xmlFile = XmlReader.Create(fn, New XmlReaderSettings)
Dim ds As New DataSet
ds.ReadXml(xmlFile)
DGV.DataSource = ds.Tables(0)
End Sub
End Class
[/CODE]