Duplicar Registro em outra tabela

Win 7, Access 2010.

Boa tarde!

Preciso de ajuda para o seguinte código.

Private Sub Comando182_Click()
On Error GoTo Erro
Dim Qtde As Integer, I As Integer
If MsgBox("Confirma APROVAÇÃO do pedido para Fabrica?", vbYesNo + vbQuestion, "Atenção!") Then
Qtde = InputBox("Confirme Quantidade de peças.", "Clonagem de Título.")
Set rsMov = CurrentDb.OpenRecordset("TESTE2")
For I = 1 To Qtde
rsMov.AddNew
rsMov("PedidoInterno") = Me.PedidoInterno
rsMov("Cotacao") = Me.COTACAO
rsMov("Empresa") = Me.EMPRESA
rsMov("CodDoItem") = Me.CodDoItem
rsMov("PedidoCliente") = Me.PedidoCliente
rsMov("ItemPedido") = Me.ItemPedido
rsMov("TipoDeTransporte") = Me.TipoDeTransporte
rsMov("EntradaNaLumar") = Me.EntradaNaLumar
rsMov("DataEntrega") = Me.DataEntrega
rsMov("EntregaDoSetor") = Me.EntregaDoSetor
rsMov("PrevisaoDeFabrica") = Me.PrevisaoDeFabrica
rsMov("Natureza") = Me.NATUREZA
rsMov("Setor") = Me.SETOR
rsMov("Desenho") = Me.Desenho
rsMov("Qtde") = I & "_" & Qtde
rsMov("DescricaoParaFabrica") = Me.DescricaoParaFabrica
rsMov("DescricaoComercial") = Me.DescricaoComercial
rsMov("ValorTotal") = Me.ValorTotal
rsMov("ValorUnitario") = Me.ValorUnitario
rsMov("PrevisaoDeCarteira") = Me.PrevisaoDeCarteira
rsMov("AnaliseDePedido") = Me.AnaliseDePedido
rsMov("Quem") = Me.QUEM
rsMov("Observacoes") = Me.Observacoes
rsMov("SolicitacaoDePosterga") = Me.SolicitacaoDePosterga
rsMov("Confirmacao") = Me.CONFIRMACAO
rsMov("OrcamentoEnviado") = Me.OrcamentoEnviado
rsMov("PedidoAprovado") = Me.PedidoAprovado
rsMov("Pendencias") = Me.Pendencias
rsMov("Status") = Me.STATUS
rsMov.Update
Next I
MsgBox "Pedido aprovado com sucesso.", vbInformation, strTitulo & strVersao
Set rsMov = Nothing
Else
MsgBox "Operação cancelada.", vbInformation, "Atenção!!"
Exit Sub
End If
Sai:
Set rsMov = Nothing
Exit Sub
Erro:
MsgBox "Erro ao aprovar pedido.", vbInformation, "Atenção!!"
Resume Sai
End Sub


Sempre que o executo ele vai direto para a linha

MsgBox "Erro ao aprovar pedido.", vbInformation, "Atenção!!"

E encerra o código.

Bom dia André...

Poste partes do sistema envolvida em um servidor externo e cole o link aqui.
Grato.

https://drive.google.com/folderview?id=0B1sMJ1YmJY1bRTZVNzVxUldiUFk&usp=sharing

Senhores, bom dia novamente. Apenas para dizer que consegui resolver.

O que fiz foi trocar o For de lugar. Subi ele uma linha e resolvi os problema.

Resolvido.

Que bom, o fórum agradece o retorno.
Abraços e sucesso.