[Resolvido]Recordset dando erro

Set rs = CurrentDb.OpenRecordset("QRY_TCOM_LISPRO")
rs.MoveFirst
Do While Not rs.EOF
CurrentDb.Execute "UPDATE TBL_GERARCARTAS_CORPO SET preçovenda ='" & rs!LSPD_VLF_PRE & "' WHERE codproduto =" & RTrim(rs!PROD_EXT_COD) & "' And lista =" & rs!LSPR_COD & ""
'"codproduto =" & RTrim(rs!PROD_EXT_COD) & "'" ' And lista = " & rs!LSPR_COD & ""
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
MsgBox "Processamento realizado com sucesso.", vbInformation, "SQL"


tenho esse codigo, e está dando erro.

estou conectando o meu bd em um banco de dados SQL, ele tem espaços nos campos devido ao tipo de campo por isso o uso do RTrim.

mesmo assim depois do where, diz Tipo de Critérios incompativeis.

Bom dia
Estará a comparar números com texto. Veja onde estará a errar
Onde fôr texto, terá que envolver em pelicas (tem apenas pelica dum lado na expressão de codproduto)

CurrentDb.Execute "UPDATE QryMain_Adm_ListaPreços_Atualizar SET preçovenda = '" & rs!LSPD_VLF_PRE & "' WHERE codprodutO = " & RTrim(rs!PROD_COD) & " And lista = " & RTrim(rs!LSPR_COD) & " And lockedprice = false"

Bom dia Alexandre!

funcionou dessa forma

Gratidão!!