опять 25.
я уже давал пример
вот Сумма - поле на форме, где выдается результат
а вот код- поле, по кторому считается сумма
а это событие "Кнопка вверх" для поля "код"
Private Sub код_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim rst As DAO.Recordset, summa
Dim i As Long
If Me.Form.SelHeight > 0 Then
Set rst = Me.RecordsetClone
summa = 0
rst.MoveFirst
rst.Move Me.Form.SelTop - 1
For i = 1 To Me.Form.SelHeight
summa = summa + Nz(rst("код"), 0)
rst.MoveNext
Next
Me.Parent.Сумма = summa
rst.Close
Set rst = Nothing
End If

End Sub