Criar um banco de dados pelo VBA

As vezes é necessário criar um banco de dados durante a execução de um programa.
Apliquei esta solução quando enviava o mesmo banco de dados para clientes diferentes, porém cada um com tabelas específicas.
Não esquecer de marcar a referência no VBA conforme a figura mais abaixo.

;-)


Private Sub CriarBancoDeDados()
 
    Dim objCatalog As ADOX.Catalog
 
    Set objCatalog = New ADOX.Catalog
 
    objCatalog.Create "provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Teste.accdb"

    Set objCatalog = Nothing
 
End Sub