Recorrer un DataGrid fila por fila

[wingsmarcus]

hola amigos soy nuevo en el foro y necesito ayuda urgente con un programa que estoy haciendo, es mi proyecto final y lo que necesito hacer es un barrido de un datagrid fila por fila, tengo un codigo que me funcionó hasta que metí mas de 10 datos de mi base al data grid pero al llegar a 9 datos me aparece un error, el barrido lo hago con un timer porque lo tengo que hacer a cada segundo y no se que hacer, como puedo resolverlo, ayuda es para antes de finalizar este mes ^^

Mi Codio:

Private Sub Timer1_Timer()
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
End Sub