El Probelma pienso yo es que el apuntador en la tabla que estas usando se queda en el fin de archivo y aunque se suponde que con el "FOR" debería de barrer toda la tabla la condición "WHILE" trunca el recorrido ya que devuelve un falso y termina la operación en el primer registro que quiere leer el FOR.

Para ese caso tendrías que usar un indice por fecha , colocarte en la primera coincidencia de fecha y barrer el resto de los registros.

o usar una sentencia SELECT

Select sum(Total) From "TABLA" Where comprob='001' and ;
fecha < CTO("1/7/2003") AND fecha >= CTOD("1/4/2003") into array trim2

messagebox(Str(trim2(1)))