Sub CreateDatabase(strPath)
Dim dbeng 'As DAO.Dbengine
Dim db 'As Database
Const dbLangGeneral = ";LANGID=0x0409;CP=1252;COUNTRY=0" 'DAO.LanguageConstants
Const dbVersion30 = 32
Const dbVersion40 = 64
	Set dbeng = CreateObject("DAO.DBEngine.36")
	Set db = dbeng.CreateDatabase(strPath, dbLangGeneral, dbVersion40)
	db.Close
End Sub