Crear bases de datos backend mediante código

Hola expertos

He encontrado por ahí la siguiente función:

Function CreaBaseDeDatos(ByVal BaseDeDatos As String)
Dim db As DAO.Database
Set db = DBEngine.Workspaces(0).CreateDatabase(BaseDeDatos, dbLangGeneral)
db.Close
Set db = Nothing
End Function

Me permite crear una nueva base de datos, aunque lo hace directamente en Mis Documentos. ¿Cómo podría mejorarla para poder decidir yo en qué ruta ubico la nueva base de datos?  Posteriormente tendría que crearle varias tablas, definiéndole todos sus campos. Creo que ya lo he hecho alguna vez, pero nunca en una BBDD externa a la aplicación. ¿Podríais darme igualmente alguna pista sobre ello?

Muchas gracias y saludos