Creas una función en un módulo de la base de datos.
Y para ejecutar la consulta escribes eto
db.Execute "NombreConsulta", dbFailOnError
El dbFailOnError, es por si quieres que si se produce algún error al ejecutar la consulta lo puedas interceptar, si no quieres hacerlo, lo quitas
Un saludo