Consulta data ASP - Access

Boa tarde!

Estou com uma dificuldade em uma consulta de data, tenho uma base de dados Access onde salvo

Cod_prof - numero

ativo - texto Sim/Não

data_limite - data

Caso tenha um registro com data < = a data atual e que esteja ativo = 'Sim' e do professor

mostre a mensagem.

O código é:

<%
dia = day(date())
mes = month(date())
ano = year(date())
data = dia & "/" & mes & "/" & ano

data_limite = Right("0"&Day(Cdate(data)),2) & "/" & Right("0"&Month(Cdate(data)),2) & "/" & Right("0"&Year(Cdate(data)),4)

 rectabela.open "select * from provas WHERE data_limite <= #"&data_limite&"# and ativo = 'Sim' and codprof="& codprof , conconecta
 if not rectabela.eof or not rectabela.bof then
 %>

 <span class="style441"> O prazo para lançar as notas expirou, procure a coordenação! </span>

 <% else %>

Desde já agradeço a ajuda.

Claudiney

www.cassystems.com.br