Como hacer consulta sql en ADOQuery

[Lizette]

Hola, tengo un problema con la consulta sql.

El codigo de la consulta es el siguiente:

Código Delphi [-]
procedure TfrmSelectProd.SQLVenta(numero: String);
var
  consulta: string;
begin
consulta:='Select CveProd, Descripcion, CantVta, PrecioV, Sum(CantVta*PrecioV) From producto, venta Where Venta.CveProd=producto.CveProd and venta.NoVenta=';
  consulta:=consulta+(numero)+' Group By CveProd, Descripcion, CantVta, PrecioV';
  with QyVenta do
    begin
    Close;
    SQL.Clear;
    SQL.Add(consulta);
    Open;
    end;

end;

El contenido de la consulta la visualizo en un dbgrid, pero al mandar llamar el procedimiento con el parametro SQLVenta(NoVta); NoVta es una variable string que contiene el numero de venta, me causa error, dice que CveProd es redundante..