Cerrar Conexiones

[parboli]

Que tal !!! tengo el siguiente problema. Estoy haciendo un programa y trabajo con una base de datos en SQL. La cuestión es que se me crean muchas conexiones y al funcionar en red sería peor.

El código para la conexion que utilizo, está en la siguiente funcion de un módulo

Private cmdReal As ADODB.Command
Private rstGeneral As ADODB.Recordset

Public Function Recupera_Consulta(query As String) As ADODB.Recordset
Set cntReal = New ADODB.Connection
cntReal.CommandTimeout = 999999999
If cntReal.State = adStateClosed Then
cntReal.Open "Provider=SQLOLEDB;User Id=usuario;Pwd=contraseña;Data Source=MICOMPU;Initial Catalog=BASE_DATOS"
End If
Set rstGeneral = New ADODB.Recordset
With rstGeneral
.ActiveConnection = cntReal
.CursorLocation = adUseClient
.LockType = adLockReadOnly
.CursorType = adOpenStatic
.Open query
End With
Set Recupera_Consulta = rstGeneral.Clone
End Function

Cuando quiero hacer una consulta desde cualquier formulario (y lo hago muchas veces) simplemente hago lo siguiente

set rs=recupera_consulta("select * from empresas")


Alguien sabe como cerrar las conexiones??, que código deberia añadir para cerrarlas ????? porq solo se logran cerrar cuando salgo del proyecto. Gracias de antemano