Recorrer un datagrid en vb60

[luciano]

Hola creo que el Row+1 lo tenes que pones en el ultimo FOR,

Yo para recorrer un un datag celda por celda lo hago asi:

Private Sub Command1_Click()


For r = 0 To grdDataGrid.ApproxCount - 1
For c = 0 To grdDataGrid.Columns.Count - 1
MsgBox grdDataGrid.Columns(c).Text

Next
grdDataGrid.Row = grdDataGrid.Row + 1
Next
End Sub