Sorry, если задаю вопрос не на том форуме (может, надо было в VB?).
Ситуация такая: имеется ADP проект (Access2000, SQL2000), из него SELECTом вытаскиваю Recordset (ADO) и сохраняю его в файле на своей машине, закрываю Recordset. Затем файл открываю и пытаюсь сделать этот Recordset источником данных для формы (Set Me.Recordset = сохранённый Recordset) и здесь вылазит ошибка "error 7965 Указанный объект не может являться значением свойства "Набор записей" (Recordset)". С открытым Recordset'ом я нормально работаю (могу просматривать значения полей), а как источник данных для формы он не воспринимается.

Private Sub Form_Open(Cancel As Integer)
Dim fs, f
Dim Conn As ADODB.Connection
Dim RS1 As New ADODB.Recordset
Set Conn = CurrentProject.Connection
RS1.CursorType = adOpenStatic: RS1.LockType = adLockBatchOptimistic
RS1.CursorLocation = adUseClient
RS1.Open "SELECT i_schetin, i_agent FROM tf_schetin WHERE i_schetin=1", Conn
RS1.MoveFirst
With Application.FileSearch '-----------Поиск и удаление файла (если есть)
.LookIn = "C:\"
.SearchSubFolders = False
.Filename = "schet.sav"
If .Execute > 0 Then
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile("c:\schet.sav")
f.Delete
End If
End With
RS1.Save "c:\schet.sav", adPersistADTG
Set RS1 = Nothing
RS1.Open "c:\schet.sav", , adOpenStatic, adLockBatchOptimistic, adCmdFile
Set Me.Recordset = RS1 '========== Здесь вылетает ошибка
Me.p_ischetin.ControlSource = "i_schetin"
Me.p_iagent.ControlSource = "i_agent"
End Sub

to AlexJuice
1. Поставить Set RS1=Nothing меня надоумил SQL books online (хотя close, само собой, нужен тоже):
Use the Close method to close a Connection, a Record, a Recordset, or a Stream object to free any associated system resources. Closing an object does not remove it from memory; you can change its property settings and open it again later. To completely eliminate an object from memory, set the object variable to Nothing (in Visual Basic) after closing the object.
2. Спасибо.
3. Не совсем понял. Вы, может, намекаете на то, что у меня в Recordset нет записей совсем? Но записи-то есть, когда я ставлю после
RS1.Open "c:\schet.sav", , adOpenStatic, adLockBatchOptimistic, adCmdFile

RS1.MoveFirst
MsgBox (RS1.RecordCount)
MsgBox (RS1.Fields(0).Value)
то всё работает.