Access - Incrementar registro segun valor del cuadro de texto

Foro buenas tardes muchas gracias por sus ambles respuestas pero tengo otra duda en internet encontré un codigo que trato de adaptar a mis necesidades

Private Sub Comando7_Click()
On Error Resume Next

'Añade y Graba el Numero de 'Valor Inicial'
rst.AddNew
rst!NoPagos = VALORINICIAL
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!NoPagos = DMax("NoPagos", "FACTURAENPARCIALIDADES") + 1
rst.Update
rst.MoveNext
Next K

CantRegGene = Null
FACTURAENPARCIALIDADESSUBFORULARIO.Requery
FACTURAENPARCIALIDADESSUBFORULARIO.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

Lo que hace este código es incrementar filas dependiendo de el valor que tenga el cuadro de texto llamado CantRegGene si el valor de este cuadro es 3 al ejecutar este código en el subformulario me incrementa 3 filas y me coloca 1,2,3 en cada fila respectivamente el problema comienza cuando vuelvo a ejecutar el código y si coloco otra vez 3 en el cuadro de texto llamado CantRegGene si me incrementa las 3 filas pero me coloca 1,4,5 cuando quisiera que me colocara 1,2,3 nuevamente, esto lo hace por esta instrucción (si es que he entendido bien el código), pero no se como hacerle para que haga lo que necesito

rst!NoPagos = DMax("NoPagos", "FACTURAENPARCIALIDADES") + 1

espero me ayuden
saludos y gracias