生成 ACCESS 数据库

function CreateMDB( mdb : string):Boolean;
var
    ooo : olevariant;
    sql : string;
begin
    try
        ooo := CreateOleObject('ADOX.Catalog');
        ooo.Create('Provider=Microsoft.Jet.OLEDB.4.0;data source=' + mdb);
        result := true;
    except
        showmessage('数据库建立失败!');
        result := false;
    end;
end;