Incrementar fechas según intervalo access

Hola Buenos días tengo el siguiente código el cual pretede incrementar un numero determinado de registros según el valor de un cuadro de texto llamado CantRegGene lo que necesito es que si dicho cuadro de texto tiene el numero 3 de como resultado
Campo
27-10-11
03-11-11
10-11-11
sin embago asi como tengo el codigo lo que hace es
27-10-11
03-11-11
05-11-11
Pueden ayudarme por favor
saludos
Private Sub Aceptar_Click()
On Error Resume Next
'Añade y Graba el Numero de 'Valor Inicial'
    rst.AddNew
    rst!Campo = ValorInicial
    rst!FACTURA = FACTURA1
    rst.Update
'Añade y Graba el resto de Números hasta el total de registros a generar
For K = 1 To CantRegGene - 1
    rst.AddNew
    rst!Campo = DateAdd("d", K + 7, ValorInicial)
    rst!FACTURA = FACTURA1
    rst.Update
    rst.MoveNext
Next K
CantRegGene = Null
Subformulario.Requery
Subformulario.SetFocus
'Cierra el Recordset con la Tabla
    rst.Close: Set rst = Nothing
'Ejecuta el Evento "Al cargar" para cambiar el Número Inicial por defecto
    Form_Load
End Sub

{"Lat":16.1589469082596,"Lng":-93.154296875}