subrutina con conexion a bd

[edu007ar]

Hola, necesito implementar en mi sitio una subrutina que conecte a una base de datos para llamarla las veces que sea necesario sin tener que repetir el código de conexion:

Intento utilizar el siguiente código pero por alguna razón no funciona, y no sé porqué:

<%
sub conectar()

Const adOpenForwardOnly = 0
Const adOpenKeyset = 1
Const adOpenDynamic = 2
Const adOpenStatic = 3
Const adLockReadOnly = 1
Const adLockPessimistic = 2
Const adLockOptimistic = 3
Const adLockBatchOptimistic = 4
Set adoCon = Server.CreateObject("ADODB.Connection")
adoCon.Open("password=123;DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("bd.mdb"))
Set rsComun = Server.CreateObject("ADODB.Recordset")

end sub


call conectar

rsComun.open "tabla", adoCon
do while not rsComun.eof
response.write rsComun("a")
response.write "<br>"
rsComun.movenext
loop
rsComun.close

set rsComun=nothing
adoCon.close
set adoCon=nothing

%>

El error lo tira en la línea que dice rsComun.open "tabla", cadoCon y dice: Se requiere un objeto rsComun

Espero que alguien encuentre dónde está el error, hace ya bastante que estoy con esto y no le encuentro solución.

Gracias.

[u_goldman]

El error es que rsComun esta esperando un query

rsComun.open "tabla", adoCon

query = "SELECT campos FROM tabla"
rsComun.open query, adoCon

Saludos

[AlZuwaga]

Probá colocar DIM adoCon fuera de sub conectar()

Edit: también tenés un recordset en la sub... eso nunca lo hice. Si con lo que dice u_goldman () sigue sin funcionar, probá lo que te digo y además hacé también un DIM rsComun

Edit 2: No sé por qué el emoticón que saluda se llama :_adios_: en vez de llamarse :hola:

[edu007ar]

Muchas gracias a ambos, la solución fue declarar los objetos antes de la subrutina tal como indicó Al Zuwaga...

Nuevamente gracias.
Slds.

[u_goldman]

No se le va una a nuestro

Salud que es vierneeeeesssssssssss