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
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