[Resolvido]Erro no código

Caros Mestres,

Venha encarecidamente solicitar dos Mestres que descubram para mim o erro deste código. Não estou conseguindo VER.
Quando executo: Erro em tempo de execução 3075
Erro de sintaxe na expressão de consulta 8

Código abaixo

Tenho:

Tabela1(Codigo-texto,Produto-texto)

e pretendo passar para

Tabela2(Codigo-texto,Produto-texto)



Dim Rst As DAO.Recordset

Set Rst = CurrentDb.OpenRecordset("SELECT Codigo,Produto FROM Tabela1 ORDER BY Codigo;")

Do While Not Rst.EOF

If DCount("*", "tabela2", "Codigo='" & Rst("Codigo") & "'") = 0 Then

CurrentDb.Execute "INSERT INTO Tabela2 (Codigo,Produto) VALUES ('" & Rst("Codigo") & "','" & Rst("Produto") & "';" ERRO É NESTA LINHA

Else

CurrentDb.Execute "UPDATE Tabela2 SET Produto=Produto & ' " & Rst("Produto") & "' WHERE Codigo='" & Rst("Codigo") & "';"

End If

Rst.MoveNext

Loop


Set Rst = Nothing

Olá bom dia...

Experimente aspas no lugar do apóstrofo.

CurrentDb.Execute "INSERT INTO Tabela2 (Codigo,Produto) VALUES ('" & Rst("Codigo") & "','" & Rst("Produto") & "';"

Grande Sílvio

Coloquei as aspas e ficou assim:

CurrentDb.Execute "INSERT INTO Tabela2 (Codigo,Produto) VALUES ("" & Rst("Codigo") & "","" & Rst("Produto") & "";"

Agora o erro é: Erro de compilação - Erro de sintaxe

vou dar uma olhada, aguarde.

Será
CurrentDb.Execute "INSERT INTO Tabela2 (Codigo,Produto) VALUES ('" & Rst("Codigo") & "','" & Rst("Produto") & "');"

é isso ai...faltou fechar com parêntesis.

É isso aí grandes Mestres. Continuo sempre aprendendo com vocês. Deu tudo certo.

Muito agradecido a todos.

Grande Abraço

Grato pelo retorno...o fórum agradece.