appending data to an XML file

[kamitsin]

Hi can someone help me with appending data to an XML file.

I want to save some data to a XML file which is done by the following code.

Private Sub Command47_Click()
CommonDialog1.ShowSave
NewFileSave = CommonDialog1.FileName
MsgBox NewFileSave
xml.SaveXml NewFileSave
MsgBox "Saved"
CancelButton:
Exit Sub
End Sub

Now if i open an existing file and save my data in that file the original data is lost.

How to append the data to the existing XML file ???

Amit