VB Code:
  1. Dim rst As Recordset
  2. Dim prevval As Double
  3. Set rst = CurrentDb.OpenRecordset("select * from table1")
  4. While Not rst.EOF
  5. rst.Edit
  6.     rst("accum") = prevval + rst("price")
  7. rst.Update
  8. prevval = rst("accum")
  9. rst.MoveNext
  10. Wend

where table1 is ur table (not a query) containing the items and values..

If ur problem got resolved,then please rate the post..