suma cantidad celda

[guillebomtrasmiti]

hola amigos...tengo un problemilla...tengo una base de datos, de ella he generado una grilla en el formulario que conecta con una tabla, el cliente inserta una serie de líneas en la grilla ahora necesito que al pulsar un botón se sume a la última línea en una celda concreta...la número 6 exactamente la cifra que hay en un textbox...lo intengo así pero nada...

For i = 0 To DgGenerados.Rows.Count - 1
Dim tod As New Integer
tod = CInt(Val(DgGenerados.Rows(i).Cells(6).Value))
tod = CInt(Val(DgGenerados.Rows(i).Cells(6).Value) + CDbl(TextDif.Text))
Next