[Resolvido]Comando Recordset não funciona

Boa tarde,

Estou precisando de uma ajuda neste meu banco de dados, pois quando aciono o botão salvar a NF o comando esta dando um erro, pois preciso que seja salvo na tabela a qtde de produto que esta sendo comprada.

Você tem o Me. no recordset Cod e tem aspas simples a dizer que é texto.
Mas esse campo da tabela produto é numerico, sem aspas simples;

Tem assim;
Set rsD = DB.OpenRecordset("SELECT * FROM Produto WHERE CodProduto = '" & rsO!Me.Cod & "'")

Altere para;
Set rsD = DB.OpenRecordset("SELECT * FROM Produto WHERE CodProduto = " & rsO!Cod)

JPaulo, muito obrigado, deu certo.

Obrigado pelo retorno o forum agradece.