Bruge databasens navn i kode

Jeg vil gerne bruge en del af  databasens navn i min kode. Jeg har brug for en global variabel, som er en del af basens navn.
Jeg bruger:

Global Statusaar As Integer
Statusaar = Left(Right(CurrentDb.Name, 5), 1)

og herefer funktionen:

Function HentStatusaar() As Integer
HentStatusaar = Statusaar
End Function

til at hente den den af navnet jeg vil bruge, men det fungerer ikke. Den siger:
"Invalid outside procedure"

Nogen forslag?