Delphi | ساخت یک بانک اکسس در دلفی

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