'Создание таблицы товаропродаж:
    .CommandText = "SELECT  ........... " & _
                    "INTO #SEL " & vbCrLf & _
                    "FROM ................ " & vbCrLf & _
                    "WHERE ............"
    Dim NPrCount As Long
    .Execute NPrCount
    If NPrCount =  0  Then
        sbrPan = "Нет продаж за период анализа!..."
        GoTo CloseConnect
    End If

'3. Сюда попадаем, если соединение установлено. Значит, можно выполнять stored proc:
   Set cmd.ActiveConnection = cnn
   With cmd
        .CommandType = adCmdStoredProc
        .CommandText = FP.sp_Name                          '"sp_S_ORG_SelWithMask"
        .Parameters.Refresh
        DoEvents
    End With
    cmd( 1 ).Value = s             'задаём параметры sp
    cmd(1).Size = Len(s)         'Команда подготовлена.
    
'4. К этому моменту должна быть запрограммированы обработчики событий
'   Connection.ExecuteComplete - для получения состояния завершения команды
'   (здесь - хранимой процедуры). Sic! Запускается команда,
'   а состояние её выполнения получаем из ConnectionObj!!!
'   Если выборка - пустая, рекордсет устанавливается в adState.Closed;
'   иначе из рекордсета м.б. передано не более CacheSize записей.
'   По умолчанию CacheSize устанавливается равным 1. Здесь же
'   размер буфера устанавливаем равным pRecordset.RecordCount.
'   Recordset.FetchComplete - для обнаружения события "все данные помещены в буфер"
'6. Запускаем команду "выполнить sp" и направляем выбранние ею записи в rsOrg:
    Set rsOrg = cmd.Execute(, , adCmdStoredProc + adAsyncFetch + adAsyncFetchNonBlocking + adAsyncExecute)

Private Sub cnE_ExecuteComplete(ByVal RecordsAffected As Long, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pCommand As ADODB.Command, ByVal pRecordset As ADODB.Recordset, ByVal pConnection As ADODB.Connection)
'The ExecuteComplete event is called after a command has finished executing.
On Error GoTo ErrHandler
DoEvents
If Not (pError Is Nothing) Then
    If pError.Number <> 0 Then
        Dim s As String
        s = pError.Number & Comma & pError.Description & Comma & pError.Source & vbCrLf '
        Dim sErr As Error
        For Each sErr In pConnection.Errors
            s = s & sErr.Number & Comma & sErr.Source & Comma & sErr.Description & vbCrLf
        Next sErr
        Err.Clear
        rsOrgRows =  0 : rsMaxRows =  0 
        MsgBox s, vbCritical + vbOKOnly, "Класс " & Me.Name
    End If
Else
    With pRecordset
        If .State = ObjectStateEnum.adStateClosed Then
                rsOrgOK = True
                rsOrgRows =  0 : rsMaxRows =  0 
                RaiseEvent RsDone(rsOrgRows, FP.OldGoal)
        Else
                .CacheSize = .RecordCount
                rsMaxRows = .RecordCount
        End If
    End With
End If
Exit Sub
ErrHandler:
'.......
End Sub