Public Sub ExecCmdGetRecordsets(cmd As ADODB.Command, ParamArray Recordsets())
Dim i As Integer
    With cmd
        .ActiveConnection = aco
        .CommandType = adCmdStoredProc
        Dim rs As ADODB.Recordset
        Set rs = New ADODB.Recordset
        rs.Open cmd, , adOpenStatic, adLockBatchOptimistic
    End With
    Set Recordsets( 0 ) = rs
    For i =  1  To UBound(Recordsets)
        Set Recordsets(i) = rs.NextRecordset
    Next
    For i =  0  To UBound(Recordsets)
        Set Recordsets(i).ActiveConnection = Nothing
    Next
    Set rs.ActiveConnection = Nothing
End Sub

Public Function ExecCmdGetOneRecordset(cmd As ADODB.Command) As ADODB.Recordset
    With cmd
        .ActiveConnection = aco
        .CommandType = adCmdStoredProc
        Dim rs As ADODB.Recordset
        Set rs = New ADODB.Recordset
        rs.Open cmd, , adOpenStatic, adLockBatchOptimistic
        'Set rs = .Execute
        'При открытии рекордсета через cmd.Execute
        'метаданные о том, откуда он взялся, теряются.
        'Надо пользоваться rs.Open cmd!!!
        Set ExecCmdGetOneRecordset = rs
        Set rs.ActiveConnection = Nothing
        Set rs = Nothing
    End With
End Function