Узнать существущие имена таблиц БД Access

procedure....
var
 x: TStrings;
begin
 x:=TstringList.Create;
 ADOConnection.GetTableNames(x, false или true) // <- почитай Help
                                операции с x...
 x.Free;
end;