Xml做数据库导入导出媒介,VB6 + SQL Server 数据库。求教！

http://www.jinesc.com/bbs/oldbbs/disp.asp?idd=13400&room=101主　　题：xml to adodb.recordset:
作　　者：wjying
军　　衔：上等兵 
功 勋 值：30 
所属论坛：灌水之地
问题点数：10
回复次数：1
人气点数：26
发表时间：2002-2-20 16:12:07
 
recordset可以输出为xml格式字符串
    Dim oStream As ADODB.Stream
    Set oStream = New ADODB.Stream
        
    oRecordset.Save oStream, adPersistXML
    
    Dim sXML As String
    sXML = oStream.ReadText
    
    oStream.Close
    Set oStream = Nothing
具体可以看http://support.microsoft.com/default.aspx?scid=kb;EN-US;q252767
但怎么把xml再转成recordset呢
及上面的sxml变成recordset
--------------------------------------------------------------------------------
葡萄 --------------------------------------------------------------------------------
 
★wjying★ 上等兵 | 回复时间：2002-2-20 -17:00:26  
我已经找到了答案，
dim newrs as recordset
dim s2 as ADODB.Stream
    Set s2 = New ADODB.Stream
    s2.Open
    s2.WriteText (sXML)
   s2.Position = 0
   newrs.Open s2
但觉得有点浪费，stream的writetext复制了一次sXML，有什么更好的办法吗？--------------------------------------------------------------------------------
葡萄