Private Sub Form_Load()
Dim FHoy As String
Dim Fila As Integer

Move (Screen.Width - Width) \ 2, (Screen.Height - Height) \ 2
'Seleccionamos El periodo
TxtSemana.Text = ""
If rs.State = 1 Then rs.Close
rs.Open "SELECT * FROM periodos", cnn, adOpenStatic, adLockOptimistic
rs.Requery 1
FHoy = Format(Date, "dd-MMM-yyyy")

Set GrillaPeriodosFiniquitos.DataSource = rs

For Fila = 1 To GrillaPeriodosFiniquitos.Rows - 1
If CDate(GrillaPeriodosFiniquitos.TextMatrix(Fila, 3)) >= CDate(FHoy) Xor _
CDate(GrillaPeriodosFiniquitos.TextMatrix(Fila, 4)) <= CDate(FHoy) Then

TxtSemana.Text = "SEMANA No. " & GrillaPeriodosFiniquitos.TextMatrix(Fila, 1) & _
" (DEL " & Day(GrillaPeriodosFiniquitos.TextMatrix(Fila, 3)) & _
" AL " & Day(GrillaPeriodosFiniquitos.TextMatrix(Fila, 4)) & _
" DE " & sacames(Month(GrillaPeriodosFiniquitos.TextMatrix( Fila, 4))) & _
" DEL " & Year(GrillaPeriodosFiniquitos.TextMatrix(Fila, 4)) & ")"
Exit For
End If
Next Fila

End Sub

con este codigo lo que pretendo es tomar el periodo de pagos que se encuentran en una tabla ya con los registros cargados, obviamente el usuario esto no lo deve de seleccionar si no que le deve dar ya en el TxtSemana.Text la semana que se tiene que pagar...

El Ciclo se cierra inmediatamente cuando el encuentra la primera condición solo que algo devo de tener mal ya que me toma siempre el primer registro cuando el primero es de la Fecha de Enero y hoy estamos en el mes de Mayo, entonces la condición no me esta funcionando, que estoy haciendo mal.

alguna ayuda que me puedan dar. por favor estare muy agradecido. por lo pronto gracias.

Esperando respuestas......

__________________
El exito no es un milagro, es una Recopensa

Bueno, agradezco a todos los que revisaron este post, y les tengo buenas noticias ya tengo resuelto mi problema.

Gracias por Todo...

__________________
El exito no es un milagro, es una Recopensa