[Resolvido]erro na instrução InsertInto

Possuo um formulário para executar a inserção de itens na tabela Caixas  e neste formulário possuo um campo onde indico quantas caixas deverão se inseridas.
Assim no evento ao clicar de um comando tenho o código:

Private Sub Comando11_Click()
'   Define variáveis
   Dim Contador As Integer
   Dim bytIni As Byte

   bytIni = 1

'   EXECUTA A INSERÇÃO
       For Contador = bytIni To Me.Caixas

'   Inclui CAIXAS na tabela

           CurrentDb.Execute ("INSERT INTO tblCaixaEtiquetasFree (Index,Caixa) " & "VALUES (" & Me.Index & "," & Contador & "")
       
'   Retorna ao contador
       Next Contador

End Sub


Contudo ocorre erro na linha em negrito acima.

Com a palavra as Feras de Plantão.

Abraços, WSenna

Grande Avelino. na mosca.

Grade abraço e um beijo em seu coração.

WSenna