Crear un MDB (usando DAO)

[courtois]

Crear un MDB por codigo, requiere añadir al uses ComObj

Código Delphi [-]
function CreateMdbFile(_Name:String): Boolean;
var e:OleVariant;
begin
   if not FileExists(_Name) then
   begin
     try
       e := CreateOleObject('DAO.DBEngine.36');
       //El último parametro indica la versión del mdb
       //en este caso, 64 es para Jet 4.0   
       e.CreateDatabase(_Name, ';LANGID=0x0409;CP=1252;COUNTRY=0', 64);
        CreateMdbFile:=True;
     except
        On E:Exception do
        begin
          CreateMdbFile:=False;
        end;
     end;
   end
   else CreateMdbFile:=False;
end;

//Editado para librar la duplicación con el truco 49 del buen Neftalí :)