Select com campo data

Boa noite

Estou fazendo um código que pega os eventos para o dia atual, mas qdo rodo o código ele dá erro de EOF, sendo que no banco existe um registro, o código segue abaixo:

<% Set Conn = Server.CreateObject("Adodb.Connection") Dim DSN2 DSN2="Provider=MSDASQL;" DSN2=DSN2 & "DRIVER={Microsoft Access Driver (*.mdb)}; " DSN2=DSN2 & "DBQ=C:\inetpub\wwwroot\db\dbintra.mdb;" Conn.open DSN2 hoje = date() Asql = "SELECT * FROM descritivo WHERE atividade <>'" & "" & "' AND data="&hoje Set ARS = Conn.Execute(asql) While Not ARS.Eof Response.Write RS("atividade")Response.Write "<br>"ARS.Movenext()Wend %>  

Já verifiquei e o campo data está configurado como Data/Hora no access.

O que pode estar acontecendo??