Preencher recibos automaticamente em uma sequência informada

Bom dia,

Preciso criar um botão que preencha automaticamente uma sequência de números, mas não estou conseguindo fazer.
A lógica é a seguinte:

O usuário digita os dados:

PrimeiroRecibo = 10
UltimoRecibo = 15

Então clica no botão:

BotaoGerarRecibos

E então são gerados os números dos recibos dentro daquele intervalo:
Recibos Gerados:
10
11
12
13
14
15

Alguém consegue me ajudar?

Boa tarde,

Use o laço for e na rotina que salva o registro, no campo "codigo" você coloca o "i" do laço. No clique do botão:

Código:

for i = txtNumeroInicio to txtNumeroFinal Step 0

dim db as database
dim rs as recordset

set db = currentdb
set rs = db.openrecordset("tblRecibos")

rs.addnew
    rs("codigorecibo") = i
rs.update
rs.close

i = i + 1
next i

Abraço.