Creating an mdb [DAO]

option explicit

sub create_mdb 

  dim access as Access.Application
  dim db     as Dao.Database

  dim mdb_file_name as string 
  mdb_file_name = "c:\\temp\\dao_test.mdb"

  kill_file_if_exists(mdb_file_name)

  set access = new Access.Application

  set db = access.DBEngine.Workspaces(0).CreateDatabase(mdb_file_name, dbLangGeneral, 0)

end sub

sub kill_file_if_exists(file_name as string)

  dim fso       as fileSystemObject 

  set fso   = new fileSystemObject

  if fso.fileExists(file_name) then
     fso.deletefile(file_name)
  end if

end sub