Ruta de la BD actual en MS Access VBA

Pues eso:

Public Function GetDBPath() As String
    GetDBPath = CurrentProject.Path & "\"
End Function

Más detalles aquí:
http://www.ammara.com/access_image_faq/get_mdb_database_path.html