Estoy con este codigo para sumar la columna 14 de un DBgrid
pero me sale este error:

NUMERO DE FILA INCORRECTO

MI CODIGO:

Private Sub Calcular_Click()
Dim I As Integer
Dim Val1 As Double
Dim Formato As String
Pagos.Text = " "
Formato = "###,####.00"
If MsgBox("DESEA CALCULAR EL MONTO....", vbYesNo, "CALCULAR EL PAGO") = vbYes Then
         For I = 0 To DBGrid1.ApproxCount - 1
                DBGrid1.Row = I
                Val1 = Val1 + CDbl(DBGrid1.Columns(14))
         Next I
         Pagos.Text = Format(Val1, Formato)
    Else
        Unload Me
    End If
    Calcular.Enabled = False
End Sub

LUEGO UTILIZO LE AGREGUE ESTE CODIGO :

On Error Resume Next

Y no me sale el error, PERO ME SUMA MAL CUANDO PASO DE 15 Registros +/-

Alguna idea, Gracias
Esteban

hola que tal si sale la suma
pero te dire una cosa:
el numero de campos de la tabla digamos que tiene 15 y tu quieres sumar la columna 10 por lo cual no saldra la suma correcta porque el conteo empieza del 0  por lo tanto  tiene que ser 10-1=9 eso es asi y te saldrá

espero que te salga saludos..........