recuperar valor de variable local

[yomesmo]

Bueno, realmente el resultado es el mismo, el
set rs = cn.Execute("SELECT @@IDENTITY")
arroja lo mismo que el
"Select top 1 + from fotos order by id_foro desc"


El problema no es ese. El problema es que la variable: "variable" arroja correctamente el valor dentro del Sub, pero no arroja nada fuera de él.
Por ejemplo si a la variable :"variable" le doy un valor fijo dentro del Sub:

variable ="1"

cuando trato de recuperarlo desde fuera del sub no me dá resultado, sigue reconociendo esta variable como local, por más que la declaro como global, al anteponerla un Dim variable fuera del Sub...

Es para volverse loco...