Select com campo data

[Camf 0]

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

[Ratu 0]

bom naum sei se é isso, mas pra que esta parte do código?<<<< | atividade <>'" & "" & "' | >>>se você quer procurar um registro q esta diferente de vazio faca assim:WHERE atividade <> '' AND data = "& hoje