VB6 RecordSet与XML转换

Public Function SaveRSToXML(ByVal ConnectionString As String,ByVal strsql As String) As String
    Dim oCn As New ADODB.Connection
    Dim oRs As New ADODB.Recordset
    Dim oStream As New ADODB.Stream
    
    oCn.Open ConnectionString
    oRs.Open strsql,oCn,adOpenKeyset,adLockReadOnly
    oRs.Save oStream,adPersistXML
    SaveRSToXML = oStream.ReadText
    
    oStream.Close
    Set oStream = nothing
    
    oRs.Close
    Set oRs = nothing
    
    oCn.Close
    Set oCn = nothing
End Function

Public Function RecordsetFromXMLString(ByVal sXml As String) As ADODB.Recordset
    Dim oStream As ADODB.Stream
    Set oStream = New ADODB.Stream
    
    oStream.Open
    oStream.WriteText sXml

    oStream.Position = 0

    Dim oRecordset As ADODB.Recordset
    Set oRecordset = New ADODB.Recordset
       
    oRecordset.Open oStream

    oStream.Close
    Set oStream = nothing

    Set RecordsetFromXMLString = oRecordset

    Set oRecordset = nothing
End Function