[Resolvido]Como Usar o sql update

Boa Tarde! Desde já agradeço pela grande ajuda desse fórum.

Estou com uma dificuldade! Tenho uma tabela com cadastro de produtos, mas não estou conseguindo alterar os campos da tabela pelo formulario.

Estou usando o seguinte comando.

Private Sub BtAlterar_Click()
Dim bd As DAO.Database
Set bd = CurrentDb()
bd.Execute "Update BdMovi set Data ='" & Me.TxtData & "' where [Código] ='" & Me.TxtCod & "'"
MsgBox ("Alterado com sucesso!"), vbInformation, "Alterado"
End Sub

Alguém pode me informa onde estou errando?
O Erro que aparece é o 3464 "Dados incompatíveis"

Boa tarde,
Onde tem
bd.Execute "Update BdMovi set Data ='" & Me.TxtData & "' where [Código] ='" & Me.TxtCod & "'"
Coloque
bd.Execute "Update BdMovi set Data =#" & Me.TxtData & "# where Código =" & Me.TxtCod

Muito Obrigado!

Funcionou? Se sim, marque o "Resolvido"

Rapaz agora apareceu outro erro:

erro 3075
na expressão de consulta . (Erro 3075)

A expressão digitada não é válida pelo motivo apresentado na mensagem. Verifique se você digitou corretamente a pontuação e os nomes dos campos e repita a operação.

Esse é minha logica completa e ele nem passa pelo validador e já vai direto para o erro:

bd.Execute "Update BdMovi set Data =#" & Me.TxtData & "# where Código =" & Me.TxtCod

Código:

Private Sub BtAlterar_Click()
If Me.TxtCod.Value = "" And _
Me.TxtData.Value = "" And _
Me.TxtLoc.Value = "" And _
Me.TxtProdutos.Value = "" And _
Me.TxtQuantidade.Value = "" And _
Me.TxtTipo.Value = "" And _
Me.TxtValor.Value = "" Then
MsgBox ("Favor preencher todos os campos. Todos os campos são obrigatórios!"), vbCritical, "Atenção"
Exit Sub
Else
Dim bd As DAO.Database
 Set bd = CurrentDb()
bd.Execute "Update BdMovi set Data =#" & Me.TxtData & "# where Código =" & Me.TxtCod
bd.Execute "Update BdMovi set Produtos ='" & Me.TxtProdutos & "' where Código =" & Me.TxtCod
bd.Execute "Update BdMovi set Quantidade ='" & Me.TxtQuantidade & "' where Código =" & Me.TxtCod
bd.Execute "Update BdMovi set Tipo ='" & Me.TxtTipo & "' where Código =" & Me.TxtCod
bd.Execute "Update BdMovi set Valor ='" & Me.TxtValor & "' where Código =" & Me.TxtCod
bd.Execute "Update BdMovi set Locação ='" & Me.TxtLoc & "' where Código =" & Me.TxtCod
MsgBox ("Alterado com sucesso!"), vbInformation, "Alterado"
End If
End Sub

Se pretende que todos os campos estejam preenchidos, deve colocar

Código:

Private Sub BtAlterar_Click()
If Len("" & TxtCod) = 0 or Len("" & TxtData) = 0 or Len("" & TxtLoc) = 0 or Len("" & TxtProdutos) = 0 or Len("" & TxtQuantidade) = 0 or Len("" & TxtTipo) = 0 or Len("" & TxtValor) = 0 Then
MsgBox ("Favor preencher todos os campos. Todos os campos são obrigatórios!"), vbCritical, "Atenção"
Else
Dim bd As DAO.Database
 Set bd = CurrentDb()
bd.Execute "Update BdMovi set Data =#" & TxtData & "# where Código =" & TxtCod
bd.Execute "Update BdMovi set Produtos ='" & TxtProdutos & "' where Código =" & TxtCod
bd.Execute "Update BdMovi set Quantidade ='" & Me.TxtQuantidade & "' where Código =" & TxtCod
bd.Execute "Update BdMovi set Tipo ='" & TxtTipo & "' where Código =" & TxtCod
bd.Execute "Update BdMovi set Valor ='" & TxtValor & "' where Código =" & TxtCod
bd.Execute "Update BdMovi set Locação ='" & TxtLoc & "' where Código =" & TxtCod
MsgBox ("Alterado com sucesso!"), vbInformation, "Alterado"
End If
End Sub

Obrigado.