XML File Error At RunTime VB.net

[Dracitus]

Using The code in vb.net im having a product error when i enter infromatoion.

The Error is

 

Invailidoperation...............

Token StartElement in state Epilog would result in an invalid XML document.

 

heres the code im working on

 

Imports System.Xml

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim writer As New XmlTextWriter("C:\Documents and Settings\Justin\Desktop\Pictures\XMLFile\product.xml", System.Text.Encoding.UTF8)

writer.WriteStartDocument(True)

writer.Formatting = Formatting.Indented

writer.Indentation = 2

writer.WriteStartElement("Table")

createNode(1, TextBox1.Text, TextBox5.Text, TextBox9.Text, writer)

createNode(2, TextBox2.Text, TextBox6.Text, TextBox10.Text, writer)

createNode(3, TextBox3.Text, TextBox7.Text, TextBox11.Text, writer)

createNode(4, TextBox4.Text, TextBox8.Text, TextBox12.Text, writer)

writer.WriteEndElement()

writer.WriteEndDocument()

writer.Close()

End Sub

Private Sub createNode(ByVal pID As String, ByVal pName As String, ByVal pPrice As String, ByVal pAmount As String, ByVal writer As XmlTextWriter)

writer.WriteStartElement("Product")

writer.WriteStartElement("Product_id")

writer.WriteString(pID)

writer.WriteEndElement()

writer.WriteStartElement("Product_name")

writer.WriteString(pName)

writer.WriteEndElement()

writer.WriteStartElement("Product_price")

writer.WriteString(pPrice)

writer.WriteEndElement()

writer.WriteEndElement()

writer.WriteStartElement("PAmount")

writer.WriteString(pAmount)

writer.WriteEndElement()

writer.WriteEndElement()

 

End Sub

End Class

 

 

all of this is in runtime when the error happenes

[Dracitus]

Figured it out i was adding to many nods at one time but it works now