Суммировать ячейки

[Djuleta86]

Всем доброго времени суток.
У меня возникла такая проблема. Нужно составить правильно вот такой код:

Dim rst As ADODB.Recordset
Dim sql As String
Set rst = New ADODB.Recordset 'CurrentDb.OpenRecordset("table1", dbOpenDynaset)
rst.CursorLocation = adUseClient
rst.Sort = "[Поле1]"

rst.Open "table1", CurrentProject.Connection, adOpenDynamic, adLockOptimistic

While Not rst.EOF
Dim i As Integer
i = 1

If rst.Поле1(i) = rst.Поле1(i + 1) Then
rst("Поле2")(i) = rst("Поле3")(i) + rst("Поле3")(i + 1)
Else
rst("Поле2")(i) = rst("Поле3")(i)
rst.Update
rst.MoveNext
i = i + 1
End If
Wend

На это все access все время ругается, выдает ошибки синтаксиса. Помогите, пожалуймста. Очень надо.
Если из кода не понятно, что я вообще хотела сделать, объясню. Есть таблица, в ней 3 поля. Надо что бы при повторении данных в Поле1 access автоатически заполнял поле 2 суммой данных из поля 3 всех повторных строк. А если значение поля1 встречается 1 раз в таблице, просто присваивал полю 2 значение поля 3. Народ, очень жду помощи. ОЧЕНЬ надо. Уже 2 дня над этим мучаюсь. Ниче не выходит. В VBA я неочень, только начала разбираться. Поэтому помогите пожалуйста. И желательно, если там что-то сложное, еще и объяснить, что бы и я доперла.