Como se hace para añadir informacion a un archivo xml?

[mariano_donati]

Hola, estoy guardando información en un archivo xml, pero el tema es que en lugar de añadirla, me sobreescribe el archivo. Algeuin sabe como puedo solucionar esto?
El código que uso es muy sencillo:

Dim enc As Encoding
Dim xml_Writer As New XMLTextWriter(Server.MapPath("ShopInfo.xml"), enc)

xml_Writer.WriteStartDocument

xml_Writer.WriteStartElement("Shops")
xml_Writer.WriteStartElement("Shop")
xml_Writer.WriteAttributeString("Id", ShopId)
xml_Writer.WriteAttributeString("Name", ShopName)

xml_Writer.WriteStartElement("MemberSince")
xml_Writer.WriteString(Now())
xml_Writer.WriteEndElement

xml_Writer.WriteStartElement("NewMessages")
xml_Writer.WriteString("None")
xml_Writer.WriteEndElement

xml_Writer.WriteStartElement("NewOrders")
xml_Writer.WriteString("None")
xml_Writer.WriteEndElement

xml_Writer.WriteStartElement("LastVisit")
xml_Writer.WriteString(Now())
xml_Writer.WriteEndElement

xml_Writer.WriteEndElement

xml_Writer.WriteEndElement

xml_Writer.Flush()
xml_Writer.Close()

Un saludo.