Mensajes

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