运行后点击标题，提示：关键字’by’之处的语法不正确。
新手，看教程做实例中。。。如果这段代码不能排序，那该如何写DBGrid的排序？求指教。
procedure TDBGrid_form.DBG1TitleClick(Column: TColumn);
var
sqlstr,sortfieldname:string;
begin
sqlstr:='select * from t_product';
if sortfieldname=column.FieldName then
begin
sqlstr:=sqlstr+'order by '''+column.FieldName+''' DESC';
sortfieldname:='';
end
else
begin
sqlstr:=sqlstr+'order by '''+column.FieldName+''' ASC';
sortfieldname:=column.FieldName;
end;
adoq1.Close;
adoq1.SQL.Clear;
adoq1.SQL.Add(sqlstr);
adoq1.Open;
end;

by 之后，字段之前多两个冒号

sqlstr:=sqlstr+'order by '''+column.FieldName+''' ASC';
改为：sqlstr:=sqlstr+'order by '+column.FieldName+' ASC';
字段名不需引号，即 ORDER BY ‘字段名' 是错的
正确的是：ORDER BY 字段名