[[Caral]]

Hola
El error lo da en la segunda consulta y es muy logico, donde esta el where ???.

Código Delphi [-]
  
// segunda consulta
with dmDatos.qryConsulta do begin
            Close;
            Text:= 'SELECT sum(total) AS total FROM ventas '+
                   'Where fecha = ' + quotedstr(datetostr(FechaBusq.date));
  Open;
  end;
// muestra dato
txtTotalventa.text := floattostr(FieldByName('total').AsFloat);

Eso te pasa como a mi, copiar y pegar sin fijarnos....
Saludos