Sumar una columna DBGrid

[Data_uy]

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

[soplo]

Hola
Approxcount te cuenta el número de filas APROXIMADAMENTE.

Si quieres saber cuantas filas tienes es mejor que cuentes cuantos registros tienes con recordcount.

La otra opción es que hagas una consulta de totales y escribas el resultado.

Un saludo

[alfa_28]

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..........