Private rstRecMe As New ADODB.Recordset
Private rstRecMeNew As New ADODB.Recordset
Private refToSubForm As Form

 ' Загрузка формы: 

Me.PropSub.SourceObject = strFormSubName
Set refToSubForm = Me.PropSub.Form
rstRecMe.CursorLocation = adUseClient
rstRecMe.Open "exec PredstProp 0", cnnPrj, adOpenKeyset, adLockOptimistic
rstRecMe.MoveFirst
On Error GoTo Err_RecordRead  
Set rstRecMeNew = rstRecMe.Clone()
rstRecMeNew.MoveFirst
Set refToSubForm.Recordset = rstRecMeNew
Set rstRecMeNew.ActiveConnection = Nothing

 ' Создаю ADODB.RecordSet: 
Private rst As New ADODB.Recordset
Private rstClone As New ADODB.Recordset
Private Sub Form_Load()
 ' Открываю рекордсет: 
rst.CursorLocation = adUseClient
rst.Open "exec PredstProp 0", cnnPrj, adOpenKeyset, adLockOptimistic
 ' Создаю клон рекордсета: 
Set rstClone = rst.Clone()
rstClone.MoveFirst     ' На всякий случай 
 ' Привязываю клон рекордсета к форме: 
Set Me.Recordset = rstClone
 'Отсоединяю клон рекордсета: 
Set Me.ActiveConnection = Nothing
End Sub

 'Отсоединяю клон рекордсета: 
Set Me.ActiveConnection = Nothing