关于dxDBGrid的排序问题

Question

我在ColumnClick的事件中这样写:procedure TForm1.dxDBGridMainColumnClick(Sender: TObject;
  Column: TdxDBTreeListColumn);
begin
  try
   with (dxDBGridMain.DataSource.DataSet as TCustomADODataSet) do
   begin
   if not Active then exit;
    if pos('ASC',string(Sort)) <> 0 then
    Sort := format('%s DESC',[Column.FieldName,Column.FieldName])
    else
   Sort := format('%s ASC',[Column.FieldName,Column.FieldName]);
   end;
  except
  on e: Exception do
   Begin
      application.MessageBox(Pchar(e.Message),'');
   End;
  end;
end;
为什么连接ACCESSS数据库时就没问题,点击某列头可以进行排序。但连接SQL SERVER时,当点击某列头就出现错误? 提示:"invalid class typecast"