[Resolvido]Dcount condição data

Boa noite, desde ja peço desculpas caso o tópico ja exista, ja procurei aqui e em outros mais não consegui resolver meu problema.

OBS: Sou iniciante rsrsr

Tenho o seginte comando em um botão, onde o Dcount não me tras resultado por mais que exista a data na tabela.
Oque estaria errado?
Desde ja agradeço

Código:


Private Sub bt_lancamento_Click()

DoCmd.OpenForm "frm_lancamento"

Dim Conta As Integer

Conta = DCount("codigo", "tbl_movimentacao", "data_movimentacao=" & Format(Date, "dd/mm/yyyy"))

If Conta = 0 Then

DoCmd.SetWarnings False

DoCmd.RunSQL "Insert Into tbl_movimentacao(codigo_operador,data_movimentacao,tipo_movimentacao,quantidade) values('0','" & Date & "','R','0')", dbFailOnError

DoCmd.RunSQL "Insert Into tbl_movimentacao(codigo_operador,data_movimentacao,tipo_movimentacao,quantidade) values('0','" & Date & "','D','0')", dbFailOnError
  End If

End Sub


Resolvido coloquei no formato americano