Visual Basic - URGENTE...Como hago que una conexión sea GLOBAL

Tengo el siguiente módulo...

Global cntion As adodb.Connection ' Con esto trato que sea global

Public Sub Main()
Call conecta
inicio.Show
End Sub

Public Sub conecta()

Dim cntion As New adodb.Connection

Set cntion = New adodb.Connection

cntion.ConnectionString = "driver={SQL Server};server=jjc;uid=sa;database=gimnasio"
cntion.ConnectionTimeout = 30
cntion.Open

End Sub

Tengo otro form desde el cual quiero hacer uso de la conexión así...

private sub selector

Dim rs As New adodb.Recordset

Set rs = cntion.Execute("select * from alumno")

---> Se trata de formar un recordsert con el método execute de la conexión que definí como global...

end sub

Pero...

cntion a pesar de estar comprobadamente bien conectada en el módulo inicial, pareciera NO EXISTIR en el módulo detallado arriba... a pesea de que lo defini com Global. Traté con PUBLIC pero tampoco funcionó.

AYUDA POR FAVOR

jc, probá declarar tu variable cntion como global

olvidate de la respuesta anterior, leí solo la parte que querías declarar algo global...