Ayuda con modulo

[hunabku]

Saludos tengo una aplicacion en VB6 con base de datos sql server 2000 y conexion ado, me funciona bien declaro mis variables en el formulario asi:

Dim cnn As ADODB.Connection
Dim cmdcomando As ADODB.Command
Dim rstorigen As ADODB.Recordset

y hago la conexion asi en el load del formulario:

Set cnn = New ADODB.Connection
Set cmdcomando = New ADODB.Command

cnn.ConnectionString "driver=SQLServer;server=DESAROLLO;uidprueba;pwd=p rueba;database=RECLUTAMIENTO"

cnn.CursorLocation = adUseClient
cnn.Open

y me funciona perfectamente pero quisiera que todas las variables meterlas en un modulo global para no declarar todo esto en cada formulario pero no he podido alguien me podria decir como puedo hacerlo

[Jad-Neo]

Haz clic derecho en el explorador de proyectos y selecciona Agregar/Modulo, aguas no modulo de clase. Y listo, asi creas un módulo; después ese módulo lo puedes guardar aparte para que lo vuelvas a utilizar en otro proyecto si así lo quieres.

[hunabku]

Iniciado por Jad-Neo

Haz clic derecho en el explorador de proyectos y selecciona Agregar/Modulo, aguas no modulo de clase. Y listo, asi creas un módulo; después ese módulo lo puedes guardar aparte para que lo vuelvas a utilizar en otro proyecto si así lo quieres.

Ya cree el modulo pero y puse mis variables asi

Public cnn As ADODB.Connection
Public cmdcomando As ADODB.Command
Public rstorigen As ADODB.Recordset

y mi conexion asi

Public Sub conexion(rstorigen As Variant)

Set cnn = New ADODB.Connection
Set cmdcomando = New ADODB.Command

cnn.ConnectionString = "driver=SQL Server;server=DESAROLLO;uidprueba;pwd=prueba;datab ase=RECLUTAMIENTO"

cnn.CursorLocation = adUseClient
cnn.Open

End Sub



pero como le hago para que me conecte el formulario ahora