Подсчет суммы нескольких записей с разным ID

Question

При достижении последней записи добавление элементов «B» с тем же именем «Y» (по Y):

  Do While Y < Z
      total=0
  Do While X=Y 
     Total = A + B (item to sum)
     MoveNext
  Loop
    MovePrevious
    DoCmd.RunSQL
   MoveNext
  Loop
  Close

говорит, что запись не найдена, останавливается и не записывает значение A (сумма) на последней записи "Y". Что мне не хватает? Спасибо.