Access - Crear Variable

Hola a Todos :

Tengo una tabla (Periodos) en donde defini 6 campos como:

Dia1,Dia2,Dia3,Dia4,Dia5,Dia6.

Deseo saber si por medio de un ciclo puedo leer estos campos, algo
asi como esto:

StrSql = "SELECT * FROM Periodos "
StrSql = StrSql & "WHERE Periodos.FechaIni = #" & Fechas & "#"
Set rs = cn.OpenRecordset(StrSql, dbOpenDynaset)

If Not rs.EOF Then
For I = RutaIni To RutaFin
For J = 1 To 6
cCampo = "rs!Dia" & Trim(Str(J))
dFecha = cCampo
MsgBox (dFecha)
Next J
Next I
End If

Lo que no quiero es utilizar la repeticion de codigo:

For J=1 to 6
Select Case J
Case 1
dFecha=rs!Dia1
Case 2
dFecha=rs!Dia2
Case 3
...
End Select
Next

Agradezco sus respuestas

Saludos

Hola
Tienes la respuesta casi hecha:

If Not rs.EOF Then
For I = RutaIni To RutaFin
For J = 1 To 6
cCampo = rs("Dia" & J)
MsgBox (cCampo )
Next J
Next I
End If

o tambien usando el indice del ciclo

For J = 0 To rs.fields.count-1
cCampo = rs(J)
MsgBox (cCampo )
Next J

Puedes utlizar el modulo para crear variables Globales.