XML to ADO Recordset and Back again

I have a VB6 program that uses a global XML do***ent as it's data store. I 
want to convert that XML do***ent to an ADO recordset using ADO 2.7, sort 
and filter it, then convert that recordset *back* to an XML do***ent.

My problem occurs when I first open the XML do***ent; the resulting ADO 
recordset only has one record. I want to get them all.

Here's the code (Error handling omitted for clarity):
------------------------------------------------------------------------------------------------------------------------
Public Function ADORSFromXML(xmlDoc As MSXML2.DOMDo***ent40) As 
ADODB.Recordset

    With xmlDoc
        .setProperty "SelectionLanguage", "XPath"
        .setProperty "SelectionNamespaces", 
"xmlns:rs='urn:schemas-microsoft-com:rowset' xmlns:z='#RowsetSchema' 
xmlns:ms='urn:schemas-microsoft-com:xslt'"
    End With

    Set adoRS = New ADODB.Recordset
    adoRS.Open xmlDoc
    Set ADORSFromXML = adoRS  'return the recordset
    Set adoRS = Nothing
End Function
------------------------------------------------------------------------------------------------------------------------

Does anyone know why I'm only getting one record in my ADO recordset? I've

searched the Tubes high and low and can't find a clue.

Thanks in advance..

Barry
bseymour@[EMAIL PROTECTED]