You can create a database in code:

VB Code:
  1. Sub CreateDatabase()

  2.  
  3.   'Select Microsoft DAO 3.6 Object Library in Project References

  4.  
  5.   Dim ws As Workspace

  6.   Dim DB As Database

  7.  
  8.   Set ws = DBEngine.Workspaces(0) 'set the DB engine workspace

  9.   Set DB = ws.CreateDatabase(App.Path & "\MyDatabase.mdb", dbLangGeneral)

  10.   DB.Close

  11.   ws.Close

  12.   Set ws = Nothing

  13.   Set DB = Nothing

  14.  
  15. End Sub