' From Access 2002 Desktop Developer's Handbook
' by Litwin, Getz, and Gunderloy. (Sybex)
' Copyright 2001. All rights reserved.

Public Sub SaveRecordset()
Dim rst As ADODB.Recordset
Dim strFile As String

Set rst = New ADODB.Recordset

' Open the recordset from the database
rst.Open "tblCustomers", CurrentProject.Connection, _
adOpenStatic, adLockOptimistic

' Construct a file name to use
strFile = CurrentProject.Path & "\Customers.adtg"

' Destroy any existing file
On Error Resume Next
Kill strFile
Err.Clear

' Now save the recordset to disk
rst.Save strFile, adPersistADTG
' Close the recordset in memory
rst.Close
End Sub

для того, чтобы
сохранить данные в другой базе
вовсе необязательно
создавать рекордсет.

достаточно экспортировать запросом
INSERT INTO Клиенты IN 'C:\db1_.mdb'
SELECT Клиенты.*
FROM Клиенты;