Private rst As New ADODB.Recordset
Private rstForEdit As New ADODB.Recordset
................
................
' Me.SQLList - здесь хранится имя 
' вызываемой процедуры с параметрами

'Получение набора данных:
 rst.CursorLocation = adUseClient
 rst.Open _
 "exec " + Me.SQLList, cnnPrj, , adLockBatchOptimistic

 Set rst.ActiveConnection = Nothing   ' - Данные получены и лишнюю 
                                      '   связь держать не к чему

 Dim iFld As Integer
 Dim rstField

 With rstForEdit
 
  ' Создание рекордсета для редактирования с той же
  ' структурой, что и полученный набор данных 
  ' (хотя не уверен, что структура повторяется один к одному):
  For iFld =  0  To rst.Fields.Count -  1 
    .Fields.Append rst.Fields(iFld).Name _
                 , rst.Fields(iFld).Type _
                 , rst.Fields(iFld).DefinedSize
  Next iFld

  ' Открытие рекордсета с возможностью редактирования:
  .Open , , adOpenKeyset, adLockOptimistic

   
  If rst.RecordCount >  0  Then
    rst.MoveFirst        '- это может быть лишнее, на всякий случай
  
    ' Копирование записей из исходного рекордсета в новый:
    Do While Not rst.EOF
        .AddNew

       For Each rstField In rst.Fields
        .Fields(rstField.Name) = rstField
       Next rstField

       .Update

       rst.MoveNext
    Loop

  End If
 End With
 
 ' Привязка рекордсета к форме 
 Set Me.ListSub.Form.Recordset = rstForEdit
.....................

.Fields.Append rst.Fields(iFld).Name _
                 , rst.Fields(iFld).Type _
                 , rst.Fields(iFld).DefinedSize