[Resolvido]Atualizar Outra tabela

Dim db1 As Database, db2 As Database, rs1 As DAO.Recordset, rs2 As DAO.Recordset, rs3 As DAO.Recordset
Set db1 = CurrentDb
Set rs1 = db1.OpenRecordset("Tabela_FinanceiroDoador", dbOpenTable)
With rs1
.AddNew
!Id_Cliente = Me.Id_Cliente
!DtUltimaDoacao = Me.Data_Doacao
.Update
End With
End Sub

Pessoal preciso da seguinte ajuda esse codigo esta funcionando porem nao quero que ele insere outro id_Cliente quero que localize na tabela e atualize apenas o campo DrUltimaDoacao.

Help me

Boa tarde, jou
CurrentDb.Execute "UPDATE Tabela_FinanceiroDoador SET DtUltimaDoacao=#" & Me.Data_Doacao & "# WHERE Id_Cliente=" & Me.Id_Cliente & ";"

Amigo Alexandre usei o codigo que voce me deu mas num acontece nada.

Reveja onde está a executar o código. Confira a formatação da data

Estou passando o tópico a Resolvido. Caso ainda precise de ajuda quanto ao assunto aqui abordado, favor reabri-lo.