Create an Access Database (2)

Create an Access Database (2)

uses
  ComObj;

procedure TForm1.Button1Click(Sender: TObject);
var
  AccessApp: Variant;
begin
  AccessApp := CreateOleObject('Access.Application');
  AccessApp.NewCurrentDatabase('c:\111.mdb');
  AccessApp := Unassigned;
end;