如何将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