VBA/Excel/Access/Word/Access/Database Create

Create a new database

   <source lang="vb">

Sub exaCreateDb()

   Dim dbNew As Database
   Dim tbl As TableDef
   Set dbNew = CreateDatabase("c:\", dbLangGeneral)
   For Each tbl In dbNew.TableDefs
      Debug.Print tbl.Name
   Next
   dbNew.Close

End Sub

</source>