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

[wingsmarcus]

porfavor necesito ayuda urgente -.-

[wingsmarcus]

ya encontre la respuesta muchas gracias de todos modos ^^

pero si alguien save como crear los datos de algo tipo facebook que con un checkbox se le pueda dar la opsion de que se quede guardado el usuario y la contraseña se lo agradeceria mucho

[zxs23]

http://www.forosdelweb.com/f69/mante...b6-0-a-658352/