How to Add an ADO Field via XML

Does anyone have an example of how to add a field to an XML document that is
generated via an ADO Recordset.Save?

Stub example:
rs.Open "SELECT * FROM Table"
rs.Save "c:\testdata.xml"

Dim xml as New DOMDocument30
xmlDoc.Load "c:\testdata.xml"
.....code to add a new field here

rs.Open xmlDoc
debug.print rs.Fields("newfield").value

Thank you in advance!!

Heather


.