Hola,
hace tiempo que no trabajo con access, pero me da la mosca que el problema esta en la subconsulta, en como le pasas el campo fecha.
Prueba a pasar la fecha como parámetro.
Asing:
Código SQL
[-]UPDATE DIV
SET DIV.monto = ( SELECT Sum (pagos.montos) FROM pagos WHERE DIV.ced = pagos.ced AND pago.fecha = :fecha);
Código Delphi
[-]DataSet.ParamByName('fecha').AsDateTime := dFecha
Un saludo