¿Cómo corrijo error en código VBA?

Podrían por favor indicarme como corrijo el error

Siguiendo las instrucciones de Julián, abro una forma en la cual, al abrirla se cargan todas las cuentas activas en una tabla y me pide el número del mes para el que calculará los saldos anterior y posterior al mes que escogí para cada una de esas cuentas. El código de apertura de la forma es:

Private Sub Form_Load()
Dim b As Byte
b = InputBox("Que mes desea?", "Captura del mes")
Mes = b
DoCmd.RunSQL "insert into presentacion select Cuenta,Nomb from Cuen"
Me.Requery
End Sub

La tabla "partidas", contiene la actividad de cargos y abonos por mes y por cuenta; lo que necesito es que totalice la suma de cargos-abonos para obtener el saldo. El error sucede cuando pulso el botón de comando "Calcular": que tiene el siguiente código:

 For i = 1 To Me.Recordset.RecordCount

SaldoAnterior = DSum("nz([cargos])", "partidas", "cuenta='" & Me.Cuenta & "' and mes<" & Me.Mes & "") - DSum("nz([abonos])", "partidas", "cuenta='" & Me.Cuenta & "' and mes<" & Me.Mes & "")

DoCmd.GoToRecord , , acNext
Next
End Sub