vb用xml传输recordset

‘发送端

。。。。。。。。。。。。。。。。。。。。。。。

strSQL = "select * from member"

With rs
      If .State = adStateOpen Then
         .Close
      End If
      .LockType = adLockOptimistic
      .CursorLocation = adUseClient
      .CursorType = adOpenKeyset
      .ActiveConnection = conn
      .Open strSQL
 End With

rs.Save AppPath + "member.XML", adPersistXML

。。。。。。。。。。。。。。。。。。。。。。。。。。

’接收端

。。。。。。。。。。。。。。。。。。。。。。。。。。

 Set XMLDoc = New msxml2.DOMDocument
 XMLDoc.Load  AppPath + "member.XML"

 Set xrs = New ADODB.Recordset
 xrs.Open XMLDoc

。。。。。。。。。。。。。。。。。。。。。。。。。。