[Resolvido] Pegar data da mesma tabela e fazer um between

Bom dia!

Tenho um tabela com o campo data e datamax aonde eu coloco a data minima e maxima para que possa sair na pagina principal. Eu tentei fazer dessa forma e não obtive o resultado esperado. Não devolve nenhum registro.

Estou tentando fazer assim

datai = date()
data = Month(datai) & "/" & Day(datai) & "/" & Year(datai)
SQLmenu = "select top 10 * from esquela where data >= #"&data&"# AND datamax <= #"&data&"# AND ativo = TRUE order by id desc "
Tem como fazer um between puxando os dados da tabela? Eu tinha feito uma consulta de forma que eu definia a data antes, mais como preciso pegar dentro da consulta nao estou sabendo fazer.

Tinha assim antes:

datai = date()
dataf = dateadd("d",3,date())
datainicio = Month(datai) & "/" & Day(datai) & "/" & Year(datai)
datafim = Month(dataf) & "/" & Day(dataf) & "/" & Year(dataf)

	SQLmenu = "select top 10 * from esquela where data BETWEEN #"&datainicio&"# AND #"&datafim&"# AND ativo = TRUE order by id desc "
	Set RSmenu = Conn.Execute(SQLmenu)

O ideal seria ver o dia atual e comparar e puxar os datos mais estou com difilcudade de fazer isso, alguem pode me da alguma dica?

obrigado