[Resolvido]Erro ao atualizar estoque!

Amigos bom dia, necessito de ajuda.
Estou usando o código do PILOTO.

Segue:

Public Sub AtualizarProduto()
Dim lngEstoque As Long
lngEstoque = Nz(Me.txt_Estoque, 0)
   
       CurrentDb.Execute "UPDATE tbl_Produtos SET  DescriçãoDoProduto = '" & Me.txt_Descricao.Value & ", HoraSaida = " & Me.TxtHorasaida.Value & ",DataSaida = " & Me.TxtDataSaida.Value & "'," _
                       & "PrecoUnitario = " & TxtPrecoUnitario & ", Estoque = [Estoque] - " & lngEstoque & "" _
                      & " WHERE CodProduto = '" & txt_Produto & "';"                                                                                                                            
                               Me.Lst_Historico.Requery
       Me.Lst_Historico.Selected(Me.Lst_Historico.ListCount - 1) = True
   Me.Lst_Historico.SetFocus
   Me.LimpaEntrada
   Exit Sub
End Sub

Está retornando um erro:
Erro em tempo de execução "3464"
Tipos de dados incompatível na expressão de critério.

Se alguém puder me dar uma mãozinha eu agradeço.

Tentei assim também não funfou!

Public Sub AtualizarProduto()
Dim lngEstoque As Long
lngEstoque = Nz(Me.txt_Estoque, 0)

CurrentDb.Execute "UPDATE tbl_Produtos SET DescriçãoDoProduto = '" & Me.txt_Descricao.Value & ", quantidade = " & Me.TxtQuantidade.Value & ",HoraSaida = " & Me.TxtHorasaida.Value & ", DataSaida = " & Me.TxtDataSaida.Value & " '," _
& "PrecoUnitario = " & TxtPrecoUnitario & ", Estoque = [Estoque] - " & lngEstoque & "" _
& " WHERE CodProduto = '" & txt_Produto & "';"


Me.Lst_Historico.Requery
Me.Lst_Historico.Selected(Me.Lst_Historico.ListCount - 1) = True
Me.Lst_Historico.SetFocus
Me.LimpaEntrada
Exit Sub
End Sub

Piloto, boa tarde amigo como está você!

Piloto se tiver um tempinho disponível gostaria de contar com sua ajuda!
Já que você é o criador do código!
Lembrando que a ajuda de qualquer um do fórum é vem vinda.

Abraço!

Resolvido!