Проблема с сортировкой

[iloveju]

Доброго времени суток, подскажите пожалуйста, у меня есть БД в Access, подключенная через ADOConnection с помощью ADOTable и DataSource. Так вот мне необходимо сделать сортировку по возрастанию и убыванию имен объектов таблицы БД по нажатию кнопки.
Так вот я сделал так

procedure TForm1.Button3Click(Sender: TObject);
begin
    ADOTable1.Sort:='Name';
end;

И у меня сортируется по возрастанию, а как сделать по убываю сортировку не могу понять так как при добавлении 'asc/desc'

procedure TForm1.Button4Click(Sender: TObject);
begin
    ADOTable1.Sort:='Name'+'Desc';
end;

приложение запускается но выдает ошибку.



Не знаю что делать может кто сталкивался и знает где взять инфу по устранению, заранее спасибо

[Stilet]

'Name'+'Desc'

Пробел нужен: 'Name Desc'

[iloveju]

Большое спасибо так и знал что все так просто, я просмотрел кучу форумов и везде предлагали разные варианты

[xxbesoxx]

ASC и DESC при нажатие шапку грида

procedure TForm1.DBGrid1TitleClick(Column: TColumn);
Var
  st: string;
begin
  if ADOTable1.FieldByName(Column.FieldName).Tag = 0 then
  begin
    st := ' ASC ';
    ADOTable1.FieldByName(Column.FieldName).Tag := 1;
  end
  else
  begin
    st := ' DESC ';
    ADOTable1.FieldByName(Column.FieldName).Tag := 0;
  end;
  ADOTable1.Sort := Column.FieldName + st;

end;