[Resolvido]Update erro sintaxe 3075

Boa Noite Pessoal
Estou tendo dificuldade para fazer um Update. Está Dando Erro de Sintaxe 3075, pontuação incorreta.
Já Tentei de tudo, mas não estou conseguindo saber onde estou errando.  
Segue o código. se Alguem puder dar uma olhada fico grato

CurrentDb.Execute "Update Dados Set IDProd =('" & Me.TxtId & "'),CODIGO=('" & Me.TxtCodigo & "'),DESCRIÇAO =('" & Me.TxtDescricao & "'),APLICAÇAO =('" & Me.TxtAplicacao & "'),MARCA =('" & Me.TxtMarca & "'),FORNECEDOR =('" & Me.TxtFornecedor & "'),CUSTO =('" & Me.TxtCusto & "'),MARGEM =('" & Me.TxtMargem & "'),PREÇOVENDA =('" & Me.TxtVenda & "'),DATAALTERAÇAO =('" & Me.TxtData & "'),COMPLEMENTO =('" & Me.TxtComplemento & "'),EstoqueMinimo =('" & Me.TxtEstoqueIdeal & "'),LocalFoto =('" & Me.TxtImagem & "'),CATEGORIA =('" & Me.ListaCategorias.Column(1) & "') Where IDProd =('" & Me.TxtId & "')"""
           MsgBox ("Produto Atualizado Com Sucesso!"), vbInformation, Mensagem
End Sub

É só tirar o SET IDProd

Boa Noite.
Já retirei, mas continua dando erro em tempo de execução
o campo IDProd é de Numeração automática na tabela.

'Já retirei, mas continua dando erro em tempo de execução
'o campo IDProd é de Numeração automática na tabela.

Se a versão do Access for accdb a Condição SET "campo" e WHERE para números tem de ser sem as ASPAS simpes ', use apenas as ASPAS duplas, ex:
Veja se vc precisa atualizar o valor do CAMPO CODIGO
***Dica****
Crie os MÉTODOS separados, e no EVENTO do botão, chame o MÉTODO

Private Sub btn_atualizar()
Atualizar_produto
End Sub

Sub Atualizar_produto()
Dim query As String
query = "Update Dados Set CODIGO=" & Me.TxtCodigo & ",DESCRIÇAO =('" & Me.TxtDescricao & "'),APLICAÇAO =('" & Me.TxtAplicacao & "'),MARCA =('" & Me.TxtMarca & "'),FORNECEDOR =('" & Me.TxtFornecedor & "'),CUSTO =('" & Me.TxtCusto & "'),MARGEM =('" & Me.TxtMargem & "'),PREÇOVENDA =('" & Me.TxtVenda & "'),DATAALTERAÇAO =('" & Me.TxtData & "'),COMPLEMENTO =('" & Me.TxtComplemento & "'),EstoqueMinimo =" & Me.TxtEstoqueIdeal & ",LocalFoto =('" & Me.TxtImagem & "'),CATEGORIA =" & Me.ListaCategorias.Column(1) & " Where IDProd = " & Me.TxtId & ";"

On Error GoTo erro

CurrentDb.Execute query
MsgBox "Atualizado com Sucesso: "
erro:
MsgBox "Erro: "
End Sub

Boa Noite
Já Estou com dor de cabeça.
Agora esta Dando erro em tempo de execução 3075. Operador faltando
Parte do BD.

Bom dia

Poderia me enviar o seu sistema, para eu dar uma averiguada.


Att
José

Samir

quando se tem uma quantidade grande de campos, fica melhor utilizar o Recordset. Fica até mais fácil de achar os erros. Exemplo:

Dim rs as DAO.Recordset
Dim strSql$
strsql = "SELECT * FROM dados WHERE IDprod = '" & me!txtId & "'"
set rs = currentdb.OpenrecordSet(strSql)
rs.edit
   rs!codigo = me!txtCodigo
   rs!Descriçao = me!Descricao
   rs!Aplicaçao = me!txtAplicação
   ...
rs.update
rs.close
set rs = nothing
msgbox "Atualizado..."

Sucesso!

Boa Noite a todos
Realmente usar o recordset ficou mais fácil
Obrigado a todos pelo suporte
Vlw Resolvido.
Obrigado a todos Abraços ...