Salvar em tabela, registros de formulário não acoplado

Senhores, estou com duvidas.
Criei um formulário onde digito informações numéricas e após agrupar e combinar tais informações, preciso salvar na tabela.
Porem, o meu formulário gera em torno de 45 linhas, ou seja, tenho que inserir 45 registros nesta tabela.
Peço a gentileza que avaliem o exemplo (anexo), e verifiquem se a forma que estou conduzindo é a melhor opção.

desde já, sou grato a este Fórum e a todos os participantes.

Código:

Dim i
Dim k
Dim CBO
Dim c

k = combo1

For i = 1 To 45
CBO = "combo"
CBO = CBO & i

c = k

CurrentDb.Execute "Insert Into tblCombinaçõesPossiveis (jogo,Combo) Values (""" & c & """,""" & CBO & """)"

Next i


Perfeito.

A cada dia, estou conseguindo evoluir mais em conhecimentos, graças a este fórum e a boa vontade de todos que dele participa.

Mais uma vez, obrigado a todos pela ajuda.

Tópico resolvido.

O fórum agradece o retorno

Formiga,
infelizmente eu consegui fazer "caca".
mexi e mexi no exemplo que você enviou e agora...
o que acontece é o seguinte, não está salvando na tabela as informações das combinações.
Salva o nome dos combos, porém não salva no campo "jogo" as combinações.

Peço a gentileza, se possível, verifique onde estou errando.

grato,

João Batista

Olá baixei e teste e ainda está salvando as combinações...

Bom dia, Formiga.

Concordo contigo, está salvando.
Porém, não salva as combinações numéricas do formulário na tabela.
Veja, no formulário o Combo1 é 1;2;3;4;5;6;7;8;11;12;13;14;15;16;17
Combo2: 1;2;3;4;5;6;7;9;11;12;13;14;15;16;17
Combo3: 1;2;3;4;5;6;7;10;11;12;13;14;15;16;17

na tabela o Combo1 é 1;2;3;4;5;6;7;8;11;12;13;14;15;16;17
Combo2: 1;2;3;4;5;6;7;8;11;12;13;14;15;16;17
e todos os demais combos: 1;2;3;4;5;6;7;8;11;12;13;14;15;16;17

ou seja, não salvou as combinações conformes feitas no formulário.

Sou muito limitado em conhecimentos, tentei de várias formas e não consegui resolver esta questão.
Peço a gentileza, se puder me auxiliar fico grato.