VB

可以考虑将数据保存到文件中，方法和代码如下：利用MS OLE DB Persistence Provider和Recordset的Save方法将记录集保存到文件Microsoft OLE DB Persistence Provider 允许将 Recordset 对象保存到文件中，并在随后从文件恢复 Recordset 对象。模式信息、数据和挂起更改将被保存下来。
用于保存 Recordset 的格式既可以是高级数据图表 (ADTG) 格式，也可以是可扩展标记语言 (XML) 格式。
提供者关键字
要调用该提供者，请在连接字符串中指定如下关键字和值。
"Provider=MSPersist"
错误
在应用程序中可检测到由该提供者发出的如下错误。
常量 说明
E_BADSTREAM 正在打开的文件没有使用有效格式（即，格式不是 ADTG 或 XML）。
E_CANTPERSISTROWSET 正在保存的 Recordset 对象设置有防止被保存的特性。
说明
Microsoft OLE DB Persistence Provider 不显露动态属性。
当前，不能保存参数化分级 Recordset 对象。使用记录集持久性，可以将 Recordset 数据和元数据保存为文件。随后，使用持久文件来重新建立 Recordset 对象。持久文件可以保存在本地驱动器、网络服务器上或者作为 URL 保存在 Web 站点上。
另外，GetString 方法将 Recordset 对象转换成表单，在表单中列和行使用指定的字符分界。
详细资料
Microsoft OLE DB Persistence Provider 支持使用 Recordset 对象 Save 方法将 Recordset 对象保存在文件中。随后，使用 Recordset 对象的 Open、或 Connection 对象的 Execute 方法可恢复持久文件。
Recordset 对象被转换为能被保存在文件中的表单。Recordset 对象可以按所拥有的高级数据图表 (ADTG) 格式保存，或者按打开的可扩展标记语言 (XML) 格式保存。
挂起更改保存在持久文件中。因此，可以发布查询返回 Recordset 对象、编辑记录集、保存该记录集和挂起变化、以后恢复该记录集、然后使用保存的挂起变化更新数据源。
用法
保存记录集:
Dim rs as New ADODB.Recordset
rs.Save "c:\yourFile.adtg", adPersistADTG
使用 Recordset.Open 打开持久文件:
dim rs as New ADODB.Recordset
rs.Open "c:\yourFile.adtg", "Provider=MSPersist",,,adCmdFile
可选地，如果 Recordset 没有活动的连接，则都可以接受所有的默认值和简单的代码：
dim rs as New ADODB.Recordset
rs.Open "c:\yourFile.adtg"
使用 Connection.Execute 打开持久文件:
dim conn as New ADODB.Connection
dim rs as New ADODB.Recordset
conn.Open "Provider=MSPersist"
set rs = conn.execute("c:\yourFile.adtg")
使用 RDS.DataControl 打开持久文件:
在这种情况下，没有设置 Server 属性。
Dim dc as New RDS.DataControl
dc.Connection = "Provider=MSPersist"
dc.SQL = "c:\yourFile.adtg"
dc.Refresh这个方法很有用的，希望对你能有所帮助！：）