Select de base de datos de acuerdo a fecha

[parasito]

tengo el siguiente codigo, la idea es que al hacer la conexion a la db me muestre el registro correspondiente a la fecha de hoy, ello lo agrego en la instruccion where, donde esta el error???????????????
*******************************************
<%
dim camino, db, hoy, tabla_uf

db = Server.MapPath("indice.mdb")
hoy = <%= Date() %>
Set conexion = Server.CreateObject("ADODB.Connection")
conexion.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & db & ";"
Set tabla_uf = conexion.Execute("SELECT * FROM tabla_uf WHERE tabla_uf.fecha ='hoy';")
Do While Not tabla_uf.EOF
%>
<%= tabla_uf.Fields("valor").Value %>
<%
tabla_uf.MoveNext
Loop
tabla_uf.Close
Set tabla_uf = Nothing
conexion.Close
Set conexion = Nothing
%>
El proposito de esto es poder mostrar valores de una base de datos de acuerdo a la fecha del servidor...
alguien me puede ayudar??????
saludos
fredy