Utilizando loop

Estou aprendendo utilizar o loop para adicionar os itens de um pedido para os itens de nota,e ao ascrecentar adicionar o numero do item. Então fiz:

Dim db As Database, rs As Recordset
Dim I As Byte
Dim r As Recordset

Set db = CurrentDb()
Set r = CurrentDb.OpenRecordset("NfItens") 'Abre tabela

For I = 1 To Me.Itens 'confere qtos itens existem

r.AddNew

r!NITEM = Format(I, "00000")
r!IDPED = NumPedido
r!DESCPRO = DLookup("[Produto]", "[ItensNFD]", "[IdNf]=Forms![Frm Nf]![IdNf]")
r!CODIGOPRO = DLookup("[Produto]", "[ItensNFD]", "[IdNf]=Forms![Frm Nf]![IdNf]")
r.Update

Next

Set r = Nothing
End If

Ocorre que no exemplo que estou fazendo, existem 3 produtos diferentes, mas esse código carrega 3 vezes o mesmo produto. O resto está funcionando, carregando o NITEM direitinho 1,2 e 3. Como faço para passar para o próximo item?

Não entendi bem. Você quer imprimir a nota fiscal com os itens do pedido? Parece que algo está meio fora do lugar, porque você está é gravando os dados em uma tabela. Exemplifique a coisa por gentileza.

Vamos lá... independente do que seja nota ou não, o que eu preciso é alimentar uma tabela buscando os dados de outra tabela. Poderia usar uma consulta acréscimo, mas também preciso além de acrescentar, também numerar os itens (1,2,3.......), razão pela qual optei por "aprender" a usar o código acima e tentar fazer funcionar. Então um exemplo seria assim:

Na tabela 1 tem 3 itens(registros) Produto x
Produto y
Produto z

Na tabela 2 terá que ir Produto x 1
Produto y 2
Produto z 3 (e assim por diante)

No código que apresentei acima, está pegando só um item (Produto x) e queria saber como corrijo o código para ele fazer o loop e buscar os outros itens.

Espero ter conseguido explicar melhor a necessidade e obrigado pela atenção.

Isso está contra as regras de um banco de dados relacional. Temos falado isso exaustivamente nesse fórum. Para que gravar em uma tabela dados que você já tem em outra? Isso só vai esgotar as capacidades do seu banco muito antes do normal. Se você quer numerar os dados, a melhor forma seria fazendo uma consulta, na qual você adicionaria um campo para fazer a contagem dos registros sem ficar gravado na tabela.

Gostaria apenas de saber como faço para fazer funcionar a adição dos demais registros. Isso me ajudará em muito mais coisas que preciso. Novamente vou dizer, é só um exemplo. Estou dizendo de fato a minha necessidade de aprendizado de como usar o código acima, não necessariamente vou usar a risca tabela para tabela. Alguém pode me ajudar no fórum? Mais uma vez agradeço a dedicação.