'to recordset from XML 
Private Function RecordsetFromXMLString(ByVal sxml As String) As Recordset
    Dim oStream As ADODB.stream
    Set oStream = New ADODB.stream
    
    On Error Resume Next
    
    If sxml <> "" Then
      oStream.Open
      oStream.WriteText sxml   'Give the XML string to the ADO Stream
      oStream.Position =  0     'Set the stream position to the start
   

      Dim oRecordset As ADODB.Recordset
      Set oRecordset = New ADODB.Recordset
      Err.Clear
      oRecordset.Open oStream    'Open a recordset from the stream
      oStream.Close
      Set oStream = Nothing
      If Err.Number <>  0  Then
        Set RecordsetFromXMLString = Nothing
      Else
        Set RecordsetFromXMLString = oRecordset  'Return the recordset
      End If
      Set oRecordset = Nothing
      
    Else
       Set RecordsetFromXMLString = Nothing
    End If

End Function


'to xml string from recordset
Private Function XMLFromRecordSet(ByVal rs As ADODB.Recordset) As String
 Dim oDom As MSXML2.DOMDocument

 On Error Resume Next
 
 oDom.async = False
 rs.Save oDom,  1   'adPersistXML
 XMLFromRecordSet = oDom.xml
 Set oDom = Nothing
End Function