Grid über DataSet sortieren

[hirnstroem]

'loha Folks,

mit der folgenden Prozedur lasse ich mir ein DBGrid sortieren:

Delphi-Quellcode:

procedure TIWUSerSession.UserManagementSortBy(const AFieldname: string);
var
  ID: Integer;
begin
  ID := Trunc(ADODataSet_AccessUserUserID.Value);
  with ADODataSet_AccessUser do
  begin
    Close;
    try
      IndexFieldNames := AFieldname;
    finally
      Open;
    end;
  end;
end;

Dies funktioniert ganz gut, aber leider nur in eine Richtung (aufsteigend). Nun wollte ich einmal nachfragen, wie ich diese Prozedur dazu bringe nur noch absteigend zu sortieren, um letztenendes auf- und absteigend sortieren zu können. Und wenn mir jemand sagt das geht nicht, mach ich es halt über eine SQL Abfrage.

thx und Grüsse
hirnstroem