[Resolvido]Carregar ou atualizar os dados de uma tabela para outra

Boa noite

Precisava carregar ou atualizar os dados que estão selecionados (Seletor) na Tabela Temp_ProjetoPP para a tabela Tb_ProjetoPP   com os seguintes critérios: (where CStr(CodProjeto) = '" & RstOrigem("CodProjeto") & "' And CStr(CodProdutor) = '" & RstOrigem("CodProdutor") & "'And CStr(CodProduto) = '" & RstOrigem("Codprodutor") & "'"), se o registro já existir ele atualiza, se não ele gera um novo registro.
 
Durante o processo ele apresenta um erro “Erro em Tempo De Execução 3021”
 
Coloquei um campo provisório “Controle” para descobrir em qual registro está apresentado o erro. Existe 758 registros o erro está ocorrendo  nos registros 149 e 668 e não estou descobrindo qual o erro destes registros.
 
Se alguém puder me ajudar por favor!

O registro  149 estava duplicado.

Olá

O problema é o seguinte, é porque tem dois registros iguais;
Vai adicionando à tabela Tb_ProjetoPP os registros da tabela Temp_ProjetoPP, mas quando encontra um registro que já exista tem de saltar para o update e faltava aí o   RstDestino.MoveLast para poder usar o RstDestino.MoveNext.

Obrigado!!!! JPaulo