Problema con Datagrid al llegar al final de los registros sigue buscando.

[agustin_09]

TimePicker.Rows.Clear() // Borra las fila cargadas anteriormente
TBindingSource.MoveFirst() // Se mueve al principio de la tabla
FechaActual = e.Days.FirstOrDefault // Toma la variable de un calendario

Dim rs4 As DataRow
For Each rs4 In DataSet.t

If CodigoM2.Text <> CodigoM.Text Then TBindingSource.MoveNext() // Si no coincide el codigo de la presona con el de la fila activa sigue al prox. regitro
If txtFechaT.Text <> FechaActual Then TBindingSource.MoveNext() // Si la fecha de la fila activa es disntinta d la de la variable sigue al prox registro .

If txtFechaTurno.Text = FechaActual Then //s i coincide entra al IF
HoraT = txtHoraT.Text // HoraT toma la variable de la fila activa
HoraT = FormatDateTime(txtHoraT.Text, DateFormat.ShortTime) // Le da formato de fecha corta
TimePicker.Rows.Add(HoraT) // agrega la variable HoraT a un datagrid en uan nueva fila
TBindingSource.MoveNext() // se mueve al prox. registro
End If
Next

No es tan dificil de enter si preguntas de que e trata...