rst.CursorLocation = adUseClient
rst.Open  "exec " + Me.SQLList, cnnPrj, , adLockBatchOptimistic
Set rst.ActiveConnection = Nothing
Set Me.Recordset = rst
Me.Controls.Item("id").ControlSource = "id"
.......................
Me.Controls.Item("exist").ControlSource = "exist"

rst.Open  "exec " + Me.SQLList, cnnPrj, , adLockBatchOptimistic
Set rst.ActiveConnection = Nothing
Set Me.Recordset = rst

Private rst As New ADODB.Recordset\nPrivate rstForEdit As New ADODB.Recordset\n................\n................\n \' Me.SQLList - здесь хранится имя  \n \' вызываемой процедуры с параметрами \n\n \'Получение набора данных: \n rst.CursorLocation = adUseClient\n rst.Open _\n "exec " + Me.SQLList, cnnPrj, , adLockBatchOptimistic\n\n Set rst.ActiveConnection = Nothing    \' - Данные получены и лишнюю  \n                                       \'   связь держать не к чему \n\n Dim iFld As Integer\n Dim rstField\n\n With rstForEdit\n \n   \' Создание рекордсета для редактирования с той же \n   \' структурой, что и полученный набор данных  \n   \' (хотя не уверен, что структура повторяется один к одному): \n  For iFld =  0  To rst.Fields.Count -  1 \n    .Fields.Append rst.Fields(iFld).Name _\n                 , rst.Fields(iFld).Type _\n                 , rst.Fields(iFld).DefinedSize\n  Next iFld\n\n   \' Открытие рекордсета с возможностью редактирования: \n  .Open , , adOpenKeyset, adLockOptimistic\n\n   \n  If rst.RecordCount >  0  Then\n    rst.MoveFirst         \'- это может быть лишнее, на всякий случай \n  \n     \' Копирование записей из исходного рекордсета в новый: \n    Do While Not rst.EOF\n        .AddNew\n\n       For Each rstField In rst.Fields\n        .Fields(rstField.Name) = rstField\n       Next rstField\n\n       .Update\n\n       rst.MoveNext\n    Loop\n\n  End If\n End With\n \n  \' Привязка рекордсета к форме  \n Set Me.ListSub.Form.Recordset = rstForEdit\n.....................

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