Dim db As Database
Set db = CreateDatabase("C:\製品データベース.mdb", dbLangJapanese)
Set db = Nothing
実行するとテーブルも何もない、空のMDBファイルが「C:\」に作成されます。
既に同名のファイルが存在する場合は、「データベースは既に存在します。」のエラーメッセージが表示されます。
dbLangJapanese で 日本語
dbLangGeneral で 英語、フランス語、ドイツ語、ポルトガル語、イタリア語、スペイン語
dbLangChineseSimplified で 中国語
dbLangKorean で 韓国語
などになります。