Как создать базу данных Access во время выполнения

procedure
 CreateMSAccessDB(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];
  try

    Workspace.CreateDatabase(filename, dbLangGeneral, dbVersion30);
  except
 on
 EOleException do

    ShowMessage('Database already exists');
  end
;
end
;

Другое по теме:

• Записываем в Access используя ADO
• Использование таблиц Access
• Использование таблиц Access2