Imprimir un informe desde un Array

Desde unas tablas he conseguido introducir los valores en un array.
En el informe resultante he de poner los campos en unas determinadas posiciones, con lo que he de asignar los valores del array a los campos del informe, pero me da error.
Consigo verlos pero no asignarlos.
Los campos independientes del informe los llamo Dia1, Dia2... Etc.
El código es:
Dim srtDia As Recordset
Dim MisDias() As Variant
Dim Dia1 As String
Dim rst As DAO.Recordset
' Relleno los días
    Set rst = CurrentDb.OpenRecordset("SELECT Dia FROM Parafirmas WHERE (((Parafirmas.Dia)>#10/1/2009# And (Parafirmas.Dia)<#10/31/2009#));")
    rst.MoveLast
    rst.MoveFirst
    ReDim MisDias(1 To rst.RecordCount)
    rst.MoveFirst
    For i = 1 To rst.RecordCount
        MisDias(i) = rst!Dia
        rst.MoveNext
    Next
 'Cierro
    rst.Close
    Set rst = Nothing
 'Los veo
    For i = 1 To UBound(MisDias)
        MsgBox MisDias(i)
    Next
A partir de aquí no encuentro como asignarlos a los Dia1... Del informe