uses ComObj;
procedure TForm1.Button1Click(Sender: TObject);
var db: OleVariant;
begin
db := CreateOleObject('dao.dbengine.36');
db := db.CreateDatabase('c:\nooBD.mdb', ';langid=0x040a;cp=1252;country=0');
db.Execute('create table Tabla(id int, name char(66))'); end;