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: