Access - Repetir Datos

Hola Necesito su ayuda por favor

Tengo el siguiente codigo que me guarda en la tabla pero quisiera que el dato de dias me lo repitiera y no se como hacerle alguien me podria mostrar como hacerlo.

Dim rst As Recordset
Dim i As Integer
Dim rstInforme As Recordset
Set rstInforme = CurrentDb.OpenRecordset("Clean Brushes", dbOpenDynaset)
For i = 1 To Text2.Value
With rstInforme
.AddNew
.Fields("dias") = i
.Fields("Piezas_Diarias_Meta") = Text6.Value
.Update
End With
Next
rstInforme.Close
MsgBox "Las Piezas Meta Diarias han sido registradas correctamente"
DoCmd.OpenForm "Clean Brushes", acNormal, , , acFormAdd, acWindowNormal

End Sub

Ejemplo
dia
1
1
2
2
3
3
4
4
etc. Gracias y saludos

Estimada Ana:

Tu mismo codigo fuente pero con algunas correcciones:

Txt_Repetir.Value=4

Dim rst As Recordset
Dim i As Integer
Dim rstInforme As Recordset
Set rstInforme = CurrentDb.OpenRecordset("Clean Brushes", dbOpenDynaset)
For i = 1 To Text2.Value
For j= 1 to Txt_Repetir.Value
With rstInforme
.AddNew
.Fields("dias") = i
.Fields("Piezas_Diarias_Meta") = Text6.Value
.Update
End With
Next
Next
rstInforme.Close
MsgBox "Las Piezas Meta Diarias han sido registradas correctamente"
DoCmd.OpenForm "Clean Brushes", acNormal, , , acFormAdd, acWindowNormal

End Sub

La respuesta al problema es un For-Next anidado