空のデータベースファイルを作成するには
Dim objDatabase As DAO.Database Set objDatabase = Application.DBEngine.CreateDatabase("Database1.accdb", LanguageConstants.dbLangJapanese)
Now Working