Visual Basic - fechas

hola, mi problema es el siguiente:
tengo en Visual Basic:
hoy = Format$(Date, "dd/mm/yy")
sql = "SELECT * FROM t1 where fecha=" & hoy & ""
pero la seleccion nunca arroja resulados positivos, a pesar de que sí debería.
Estoy trabajando con una base de datos access2000 y la tabal t1 contiene 1 solo
campo:
codigo fecha
01 23/06/01
los datos fecha son de tipo fecha corta ("dd/mm/aa")
también probé con
sql = "SELECT * FROM t1 where fecha=#" & hoy & "#"
pero tampoco resulta

De antemano gracias.

Prueba con:

sql = "SELECT * FROM t1 where fecha=DateValue('" & hoy & "')"

checa que hay apostrofes entre el parentesis y las comillas.