原文:http://access911.net/71FAB71E10DCEFF3.htm

问题：

 如何将RECORDSET的结果集保存为XML文档？
ADODB.Recordset是内存中某个表，我如何将这个表中的数据直接保存为文件呢？

回答：

 ADO的 RECORDSET提供了一个 SAVE  方法，我们可以直接用 SAVE 方法将 RECORDSET 的结构以及内容保存为一个物理文件。
Function RecordExportToFile()
    Dim Rs As New ADODB.Recordset
    Rs.Open "select * from 表1", CurrentProject.Connection, 1, 3
    Rs.Save "c:\temp\aa.xml", adPersistXML
    Rs.Close
End Function