Recorrer un datagrid en vb60

[Juanza]

Amigos, haber si me pueden ayudar, necesito recorrer un datagrid para capturar la informacion de algunas columnas tengo este codigo:
Dim i As Integer

Dim monto As Long
Dim total As Long
total = 0
For i = 0 To dgalumnos.ApproxCount - 1
dgalumnos.Row = i
monto = dgalumnos.Columns(0).Value
total = total + monto
MsgBox codi
Next i

el problema es que cuando va recorriendo por el registro 12 comienza a saltar de 4 registros y ya no 1 en 1 y en algun momento salta de 5, 6, 8 registros y me altera el resultado, quisiera saber si me pueden ayudar a modificar el codigo de tal manera que lo recorra limpiamente y de 1 en 1 los registros, desde ya un fuerte abrazo.