Abrir recordset por referência é lento?
Pergunto, pois vi num sistema que comecei a mexer que todos recordsets são abertos num função global que passa o resultado (RS com registros) ByRef !
Ou seria comprovadamente mais rápido abrir sempre no procedimento que for usar o RS ?

Está assim:

Private Sub ExtrairInfos()
 dim strSQL as String
 dim objRS  as ADODB.Recordset
 
 strSQL = "MinhaProc"
 call AbrirRS(objRS, strSQL)
End Sub

Function AbrirRS(objRS As ADODB.Recordset, ByVal strSQL As String) As Long
    Set objRS = New ADODB.Recordset
   
    'local de abertura do cursor
    objRS.CursorLocation = adUseClient
       
    'tipo do cursor
    objRS.CursorType = adOpenKeyset
       
    'tipo de trava
    objRS.LockType = adLockReadOnly
   
    'executa a query no Banco de Dados
    objRS.Open strSQL, objConexao
   
    'carrega função com o resultado
    AbrirRS = objRS.RecordCount
End Function

---------

Grato.