Access - Cómo crear BD en tiempo de ejecución

Necesito crear una BD .mdb en tiempo de ejecución. No se como se hace en Access2000. En Access 97 es facil con el 'CreateDatabase', pero no encuentro nada para hacerlo por código en el 2000.
Alguien puede echarme una mano?
Gracias

Ya lo encontré. Por si a alguien le interesa:

Dim app As Access.Application

Set app = CreateObject("Access.Application")app.NewCurrentDatabase ruta

// Ruta es una variable que contiene la ruta y nombre del archivo a crear.

app.CloseCurrentDatabase

//Si se quiere transferir tablas hay que cerrar el archivo creado

Un saludo