Recorrer un datagrid en vb60

[wingsmarcus]

yo tengo un problema, estoy usando este codigo con mi datagrid pero tengo que hacer un barrido de mas de 9 filas y pero no me lo permite hacer solo se queda en 9 y no incrementa aqui dejo el codigo:

txt_hora.Text = Time
Set DataGrid1.DataSource = HorArio
DataGrid1.Columns(0).Width = 0
DataGrid1.Columns(2).Width = 0
DataGrid1.Columns(3).Width = 0
For c = 0 To DataGrid1.ApproxCount - 1
If Time = DataGrid1.Columns(1).Text Then
Out &H378, 1
Dim coDigo As Integer
coDigo = Val(DataGrid1.Columns(0).Text)
XInter ("select duracion from horario where codigo_timbre = " & coDigo & "")
With Interval
Timer2.Interval = !duracion
End With
Timer1.Enabled = False
Timer2.Enabled = True
Else
If DataGrid1.Row < DataGrid1.ApproxCount - 1 Then
DataGrid1.Row = DataGrid1.Row + 1
MsgBox DataGrid1.Row
Else
DataGrid1.Row = 0
End If
End If
Next