Access - Camino de mi aplicación

Mi problema es que necesito una función que devuelva el camino del ejecutable de mi aplicación. Lo necesito para que funcione sin depender del lugar en el disco duro donde se copie.
Gracias

Si tienes access 2000 te bastará con
CurrentProject.Path
Si tienes access 97 te puede servir algo así:
dim base as database
dim directorio as string
Set base = CurrentDb
directorio = Left$(base.Name, InStrRev(base.Name, "\"))

Suerte...