Ya lo conseguí de este modo
en el modulo
Cita:
Public cntReal As ADODB.Connection
Public rstGeneral As ADODB.Recordset
Sub conexion()
Set cntReal = New ADODB.Connection
cntReal.CommandTimeout = 999999999
If cntReal.State = adStateClosed Then
cntReal.Open "Provider=SQLOLEDB;User Id=us;Pwd=passw;Data Source=MICOMPU;Initial Catalog=BDATOS"
End If
Public Function Recupera_Consulta(query As String) As ADODB.Recordset
Set rstGeneral = New ADODB.Recordset
With rstGeneral
.ActiveConnection = cntReal
.CursorLocation = adUseClient
.LockType = adLockReadOnly
.CursorType = adOpenStatic
.Open query
End With
Set Recupera_Consulta = rstGeneral.Clone
Y en el modulo inicial del proyecto hago un llamado a la conexion
Call conexion
y al finalizar la cierro
If cntReal .State = 1 Then cntReal .Close
De esta forma puedo hacer todas las consultas requeridas utilizando una sola conexión
Ojalá les sirva
Saludos