[Resolvido]Dlookup com critério de data

Boa noite pessoal.
Estava tudo indo bem até que me deparei com um probleminha... Ao cadastrar uma conta à pagar para o mês corrente na busca por data do formulário é encontrado agora, se eu por exemplo fizer um cadastro de uma conta à pagar para o mês seguinte dai lascou! Não acha!

Alguém poderia me dar uma ajuda.

Muito agradecido.

Segue o formulário.

Olá Elias.
Do modo como o fez "pesquisa data" funciona...
Fiz o seguinte lançamento:
Data da compra: 20/04/2014
Data Pagamento: 13/08/2014
Salvei e fiz a pesquisa por 13/08/2014 e encontrou o lançamento.

acho que o amigo Elias se equivocou, aqui para data corrente é que não estava funcionando a pesquisa logo após o salvamento do cadastro, mas passou a funcionar depois que coloquei o refresh no evento do botão salvar

????

Amigo Clóvis, me referi a informação do colega Elias que mencionou que a pesquisa com meses posteriores é que essa pesquisa não funcionava, fiz o teste nesse protótipo que ele postou e a pesquisa não funcionou com data do mês corrente para o caso de vc cadastrar e salvar e ao mesmo tempo fazer a pesquisa sem sair do formulário, mas após inserir o refresh no evento do botão salvar esse procedimento funcionou.

Caro colegas grato pela atenção.
Beto coloquei o Refres como sugeriu e fiz um cadastro de uma conta para pagar no mês de maio mais precisamente dia 09 porém ao fazer a busca não obtive resultado...Nem mesmo fechando o access e abrindo novamente. Apenas preenche o grid digo "lista" e as textbox Soma caso a data seja para o mesmo mês... Será que o problema é com o meu access? Pois com o amigo cafpr parece que funcionou.

Elias substitui as linhas atuais do evento após atualizar do campo txtDataQuitar por essas:

Me.lstSaida.RowSource = ("Select CodSaida,Referente,Quantidade as Qtd,ValorUnt as Valor,Total, Quitado From tblSaida Where DataPagamento = #" & Format(txtDataQuitar, "mm/dd/yyyy") & "#")
Me.txtSomaTotais = DSum("Total", "tblSaida", "DataPagamento = #" & Format(txtDataQuitar, "mm/dd/yyyy") & "#")
Me.txtSomaPago = DSum("Total", "tblSaida", "dataPagamento = #" & Format(txtDataQuitar, "mm/dd/yyyy") & "# And [Quitado] =" & "'Sim'")
Me.txtSomaResta = DSum("Total", "tblSaida", "dataPagamento = #" & Format(txtDataQuitar, "mm/dd/yyyy") & "# And [Quitado] =" & "'Não'")

Call LIMPA_CAMPOS

Funcionou perfeitamente porém tive que adicionar um loop passando 2x pelo código só assim que preencheu o grid.
Brigado Beto e cafpr pela força e pelo tempo gasto com o meu problema.
Veja Beto:

Código:

Dim i As Integer

For i = 1 To 2

Me.lstSaida.RowSource = ("Select CodSaida,Referente,Quantidade as Qtd,ValorUnt as Valor,Total, Quitado From tblSaida Where DataPagamento = #" & Format(txtDataQuitar, "mm/dd/yyyy") & "#")
Me.txtSomaTotais = DSum("Total", "tblSaida", "DataPagamento = #" & Format(txtDataQuitar, "mm/dd/yyyy") & "#")
Me.txtSomaPago = DSum("Total", "tblSaida", "dataPagamento = #" & Format(txtDataQuitar, "mm/dd/yyyy") & "# And [Quitado] =" & "'Sim'")
Me.txtSomaResta = DSum("Total", "tblSaida", "dataPagamento = #" & Format(txtDataQuitar, "mm/dd/yyyy") & "# And [Quitado] =" & "'Não'")

Next i


Foi muito útil este dúvida pois, me possibilitou aprender mais um pouco

Já ia esquecendo... Resolvido   

Elias, fiz o teste aqui e somente com as linhas que mandei, a list é preenchida sem nenhum problema.

Aqui só preencheu passando 2x pelo código vai entender Vai ver meu not tá veinho e precisa que repita para ele entender kkk

Para tirar as dúvidas.

Beto o seu funciona perfeitamente vou importar ele para o meu bd e testar

Funcionou perfeitamente Beto agora ficou uma dúvida... O que faltou para o meu preencher o grid passando uma única vez pela tabela?

Só olhando os códigos contidos no vba do teu formulário, a principio era para funcionar, visto que usei o exemplo que vc postou e a única alteração que fiz foi substituir as linhas que passei.