Access - Crear BD

Como creo con codigo una BD en blanco en el destino que yo quiera y con el nombre que yo quiera.

Gracias.

Utiliza esta funcion

Sub CreateDatabase()

Dim wrkPredeterminado As Workspace
Dim dbsNueva As Database
Dim prpBucle As Property
Dim Ruta As String

Ruta = "C:/indicas la ruta que deseas" & ".mdb"
Set wrkPredeterminado = DBEngine.Workspaces(0)

If Dir(Ruta) <> "" Then Kill Ruta ' Verifica que no exista ningun archivo con ese nombre, si existe lo borra.

Set dbsNueva = wrkPredeterminado.CreateDatabase(Ruta, _
dbLangGeneral, dbEncrypt)

dbsNueva.Close

End Sub

Espero te sirva, Saludos
Manuel