[Resolvido]Atualizar dados em outra tabela

Olá pessoal!

Tentei utilizar o seguinte código pra fazer o seguinte:

-Verificar se é o primeiro dia do mês, se for, abre a tabela FechamentoLivroCaixa_Saldos, localiza o registro equivalente a data de pesquisa -1 (se abro a data 01/04, ele olha o saldo da data 31/03 e ZERA).

Fica dando erro dizendo que não existe registro atual... o que eu posso estar fazendo errado?

If Day(Forms![rel_Fechamento]![dataFechamentoA]) = 1 Then
Dim db As Database, rs As Recordset
Dim dataPesquisa As Date

dataPesquisa = Forms![rel_Fechamento]![dataFechamentoA] - 1

Set db = CurrentDb()
Set rs = db.OpenRecordset("SELECT * FROM fechamentoLivroCaixa_Saldos WHERE dataFechamento =" & dataPesquisa & "")
rs.Edit
rs("saldoTotal") = 0
rs.Update
rs.Close
db.Close
End If

Abraços a todos!!!

penso que apenas está a errar no criterio

para data deve colocar entre #

Set rs = db.OpenRecordset("SELECT * FROM fechamentoLivroCaixa_Saldos WHERE dataFechamento =#" & dataPesquisa & "#")

Opa Ricardo!
Alterando a seguinte linha, conforme me indicou, funcionou!!

Muito obrigado!!!

Set rs = db.OpenRecordset("SELECT * FROM fechamentoLivroCaixa_Saldos WHERE dataFechamento =# & Format(dataPesquisa, "mm/dd/yyyy" & #")