procedure....
var
x: TStrings;
begin
x:=TstringList.Create;
ADOConnection.GetTableNames(x, false или true) // <- почитай Help
операции с x...
x.Free;
end;
Статья Узнать существущие имена таблиц БД Access раздела Базы данных Access может быть полезна для разработчиков на Delphi и FreePascal.
