Как получить количество записей в базе данных ACCESS через ADO в Delphi

Получение количества записей в таблицах базы данных Access через ADO.

var

allRecord : Integer;

begin

allRecord := 0;

ADOQuery1.Close;

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add('select count(*) as Cnt from data1');

ADOQuery1.Open;

allRecord := allRecord + ADOQuery1.FieldByName('Cnt').AsInteger;

ADOQuery1.Close;

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add('select count(*) as Cnt from data2');

ADOQuery1.Open;

allRecord := allRecord + ADOQuery1.FieldByName('Cnt').AsInteger;

ADOQuery1.Close;

ShowMessage('In data1, data2 '+IntToStr(allRecord)+' records.');

end;