Visual Basic - AYUDA Problema con conexión AYUDA

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

Esto va en las declaraciones de un modulo

Global cn As ADODB.Connection
Global rs As ADODB.Recordset

'-- esto en un form

Private Sub Command1_Click()
Const SSql = "Select * From Planes"
Set cn = New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\examenes\examenes.mdb;Persist Security Info=False"
Set rs = New ADODB.Recordset
rs.Source = SSql
rs.Open , cn
Set rptPlanes.DataSource = rs
rptPlanes.Show
End Sub

Esto es el ejemplo para usarlo con un reporte, pero creo que te va a servir para adaptarlo a lo tuyo.

Saludos
Daniel

A mi me paso lo mismo hoy. Y cambiandole el nombre al objeto ADODB.Connection aduvo bien.... No entiendo porque pero es una solucion.

Supongon que es un Bug, bastante feo por cierto.