Seçilenleri toplama

Daha önce konusunu açtığım problemi sayın kural çözmüştü. Fakat bunu kendi uygulamama ekleyince şöyle bir sorunla karşılaştım. ilk seçtiğim eveti toplamıyor ama ikinci seçtiğimde birinci seçtiğimi gösteriyor üçüncüsünü seçtiğimde ilk seçtiğimle ikinci seçtiğimi topluyor bu böyle devam ediyor. Seçer seçmez toplama nasıl yaptırabilirim. Konuyla ilgili örneği ekte gönderiyorum.
Teşekkür ederim.

Kodu aşağıdaki gibi düzeltiniz.

Private Sub Evet_Hayır_AfterUpdate()
Me.Form.Recalc
Me.Metin40.Requery
End Sub

sayın nsahin,
çok teşekkür ederim
emeğine sağlık