procedureCreateMSAccessDB(filename : String
); var
DBEngine, Workspace: Variant; const
{Important to use the following constant as is} dbLangGeneral = ';LANGID=0x0409;CP=1252;COUNTRY=0'; dbVersion30 = 32; begin
DBEngine := CreateOleObject('DAO.DBEngine');
{DBEngine := CreateOleObject('DAO.DBEngine.35'); For DAO 3.5} Workspace := DBEngine.Workspaces[0]; tryWorkspace.CreateDatabase(filename, dbLangGeneral, dbVersion30); except
on
EOleException do
ShowMessage('Database already exists'); end
; end
;