Access VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Access
  4. 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