Mega Code Archive

 

Categories / VisualBasic Script / Access

 

Create a new database

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