Como inserir por exemplo 3 registros de uma vez em um subformulário ou tabela via código

Boa noite mestres,

tenho um cardápio onde terão alguns pratos fixos, porém não consegui fixar eles no meu subformulário então pensei em colocar um botão onde ao clicar ele adicione nesse subformulário os pratos com a opção fixo marcada

alguém pode me ajudar ?

O caminho é esse mesmo. Tenta criar esse botão. Se não conseguir posta uma parte do sistema aqui que a gente pode te dar uma força

Boa noite

desculpe a demora, eu meio que adaptei para minha necessidade e consegui o seguinte código:

Código:

Dim i, n, c As Integer
n = DCount("Código", "insercao", "refeicao ='" & Me!Texto68 & "'")
c = DLookup("Código", "insercao", "Refeicao = '" & Me!Texto68 & "'")
Me!subproducao_criacao.SetFocus
For i = 1 To n
DoCmd.GoToRecord , , acNewRec
Me!subproducao_criacao!Produto = c
Next i

mas estou com problema nessa parte:

Código:

c = DLookup("Código", "insercao", "Refeicao = '" & Me!Texto68 & "'")

por que toda vez que o loop cria um novo campo e atribui um valor ao campo esse valor é repetido, sabe como posso adaptar para não repetir ?

Alguém ?

Se você quer que ele inclua outros valores você vai ter que criar outro array com os valores que deseja criar. Aí você coloca um FOR dentro do outro