Visual Basic - Run time error 424 - Urgente

Tengo el siguiente codigo
Sub main
Set db = CurrentDb
Set cond = db.OpenRecordset("Tabla1")
variable1 = cond![campo] / 100
End sub

Funciona perfecto

Si hago lo siguiente

Sub main
Abrirtablas
variable1 = cond![campo] / 100
End sub

Sub Abrirtablas
Set db = CurrentDb
Set cond = db.OpenRecordset("Tabla1")
End sub

Me saca run time error 424 al ejecutar la linea variable1 = cond![campo] / 100

Es decir si abro las tablas en una subrutina, me saca error al trata de utiizar los datos

Gracias por su ayuda!!!!

Pruba con esto....
Sub main
call Abrirtablas
variable1 = cond![campo] / 100
End sub

Function Abrirtablas
Set db = CurrentDb
Set cond = db.OpenRecordset("Tabla1")
End sub

A esto previamente tienes que tener tus variables declaradas verdad?