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

[agustin_09]

Hola amigos tengo un problema con una parte del codigo de un software que estoy modificando, toma los valores de una base de datos de access y necesito hacer una comprobación de esa información y pasarlo a un datagridview que se llama timepicker, el tema es que cuando llega al final del registro busca dos veces ese ultimo registro si tiene mas registros abajo no hay problemas el inconveniente surge cuando el registro a verificar es justo el ultimo... que puede estar pasando?


TimePicker.Rows.Clear()
TBindingSource.MoveFirst()
FechaActual = e.Days.FirstOrDefault

Dim rs4 As DataRow
For Each rs4 In DataSet.t

If CodigoM2.Text <> CodigoM.Text Then TBindingSource.MoveNext()
If txtFechaT.Text <> FechaActual Then TBindingSource.MoveNext()

If txtFechaTurno.Text = FechaActual Then
HoraT = txtHoraT.Text
HoraT = FormatDateTime(txtHoraT.Text, DateFormat.ShortTime)
TimePicker.Rows.Add(HoraT)
TBindingSource.MoveNext()
End If
Next