Dim adoRS AS New ADODB.Recordset
Dim adoStr AS New ADODB.Stream
Dim objXML AS New MSXML2.DOMDocument
'Get your Recordset however
'Save it to the stream object
Call adoRS.Save(adoStr, adPersistXML)
'Now you have the XML extracted from the recordset
'and placed in the stream object
Debug.Print adoStr.ReadAll
'You can just pass that as a string or load it into a XML
'DOM Document
objXML.loadXML(adoStr.ReadAll)
'Now you can pass the whole object and the XML has
'been parsed into objects for you
waldo
| Wed, 05 Dec 2007 13:38:00 GMT |