Редактирование записей таблицы Access - VB

Формулировка задачи:

Есть таблица (например):
title sum dolya_sum
-----------------------
AAA 1
BBB 2
CCC 3
DDD 4
EEE 5
Dolya_sum должна считаться так:
dolya_sum(тек.запись)=sum+dolya_sum(пред.запись), те должно получиться:
title sum dolya_sum
-----------------------
AAA 1 1
BBB 2 3
CCC 3 6
DDD 4 10
EEE 5 15
Как это сделать программно не открывая таблицу и не через форму ?

Решение задачи: «Редактирование записей таблицы Access»

textual
                            Листинг программы 
                        

                            <font color="blue">Public</font> <font color="blue">Function</font> fnRunningSum( _
  Optional lng <font color="blue">As</font> <font color="blue">Long</font>) <font color="blue">As</font> <font color="blue">Long</font>
    <font color="blue">Static</font> lngSum <font color="blue">As</font> <font color="blue">Long</font>
    
    <font color="blue">If</font> IsMissing(lng) <font color="blue">Then</font>
        lngSum = <font color="darkblue"><b>0</b></font>
    <font color="blue">Else</font>
        lngSum = lngSum + lng
    <font color="blue">End</font> <font color="blue">If</font>
    
    fnRunningSum = lngSum
<font color="blue">End</font> <font color="blue">Function</font>
                        