[Resolvido]Localizar registro por data utilizando recordset

Pessoal boa tarde! Gostaria que me ajudassem onde está o erro no código abaixo. Se faço tentando acessar uma data e retornar o código não funciona e se uso o mesmo código para o parâmetro IDFinanceiro e retorno da data funciona. Nesse código o erro que dá é "erro 3021, Nenhum registro Atual". Obrigado!

Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim Datarefer As Date
Set db = CurrentDb
Set rs = db.OpenRecordset("Financeiro") 'acesso a tabela ou consulta
Datarefer = Date

Sql_GrupoC = "select * from Financeiro WHERE DataVencimento = " & Datarefer
Set rs21 = db.OpenRecordset(Sql_GrupoC)
mensagem = rs21.Fields("IDFinanceiro")

MsgBox mensagem

Nenhum registro atual, significa que não encontrou nenhum registro com esse parâmetro

Tente formatar a data

Sql_GrupoC = "select * from Financeiro WHERE DataVencimento = " & Format(Datarefer,"dd/mm/yyyy")

Sql_GrupoC = "select * from Financeiro WHERE DataVencimento = " & Format(Datarefer,"mm/dd/yyyy")

Lembrando que ambos os campos, tanto tabela como form devem ser do tipo data


Cumprimentos.

Infelismente não deu. Já bati a cabeça nisso... se faço pelo código me dá o retorno, mas se tento por DataVencimento, dá vazio, porém existe o registro, veja no exemplo que eu coloquei no botão por código, retorna a data. Help me

Quando se refere a critérios data além da função format entre #


Dim db As DAO.Database ' database
Dim rs As DAO.Recordset 'recordset
Dim Datarefer As Date
Set db = CurrentDb ' seta o banco de dados atual
Set rs = db.OpenRecordset("Financeiro") 'acesso a tabela ou consulta
Datarefer = Format(Date, "dd/mm/yyyy")

Sql_GrupoC = "select * from Financeiro WHERE DataVencimento = #" & Datarefer & "# "
Set rs = db.OpenRecordset(Sql_GrupoC)
Mensagem = rs.Fields("IDFinanceiro")

MsgBox Mensagem


Cumprimentos.

É isso mesmo, valeu amigo, foi demais sua ajuda, show!!! Obrigado.

O Fórum agradece o retorno,

Não se esqueça de clicar no joinha da Mensagem que o auxiliou.