Access - access 2007

hola espero que alguien me pueda ayudar, estoy haciendo un programa de access 2007 que es el control de una caja de ahorro, ahora quiero que me muestre en un formulario la sumatoria de lo que vaya ahorrado una persona, asi como tambien dan dinero para un arcon, si la persona es >=18 solo tiene que reunir del arcon 416 y si es <18 reunir para el arcon 260, tienen que dar 8 pesos sem. los que son >=18 y dar 5pesos sem. los que son<18.

Estoy ocupando la funcion DSum, pero me esta arrojando resultados errones, no si se lo estoy usando mal.

=DSuma("[monto]","ahorradores","[folio]=[folio]") esto lo estoy poniendo en el origen del control en un cuadro de texto

y tambien lo estoy aplicando en codigo vba en otro formulario y mi codigo es:

Private Sub monto_GotFocus()
Dim a, b, c, d As Currency
b = 416
c=260
If Me.Cuadro_combinado6.Column(2) >= 18 Then
If DSum("[monto]", "arcon", "[folio]" = "[folio]") = b Then
MsgBox "Arcon pagado"
'Me.monto.Enabled = False
Else
a = 8
Me.monto = a
End If
End If
If Me.Cuadro_combinado6.Column(2) < 18 Then
If DSum("[monto]", "arcon", "[folio]" = "[folio]") = c Then
MsgBox "Arcon pagado"
'Me.monto.Enabled = False
Else
d = 5
Me.monto = d
End If
End If

End Sub

la primera condicion me lo hace pero la segundo no me respera el limite del monto a juntas que es 260, espero que me puedan ayudar.

Gracias