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.