Visual Basic - Pregunta muy sencilla de SQL.

Hola amigos:
Necesito poder seleccionar los registros de una tabla, que cumplan las siguientes 2 condiciones:

1) El contenido del campo ‘Descripcion’ de la tabla debe ser igual al contenido de un TextBox.
2) El campo ‘Fecha’ debe ser igual a la fecha del sistema (DATE)

Para lo cual utilizo la siguientes linea de SQL.

Set VarTabla = VarBasedatos.OpenRecordset("SELECT * FROM Tabla WHERE (Descripcion = '" & TextBox.Text & "') and (Fecha = Date)", dbOpenDynaset)

Pero resivo el siguiente mensaje de error:
Run Time error ‘3061’
Too Few Parameters. Espected 1

Estoy seguro de que el error debe ser algo muy sencillo de corregir, pero simplemente no lo he podido encontrar, por lo que agredecería mucho cualquier ayuda o sugerencia que puedan darme.

Por cierto alguien sabe de un buen generador de ayudas (facil de usar) que pueda usar archivos de imagenes en formato .JPG (Preferiblemente gratis) o sin bloqueos?
Pues actualmente usa el Shalom Help Maker, pero este sólo me permite usar archivos de imagenes en format .BMP, lo cual me quita mucho espacio de Disco Duro.

Gracias.

En realidad si es sencillo, tu instruccion debe estar asi:

Set VarTabla = VarBasedatos.OpenRecordset("SELECT * FROM Tabla WHERE Descripcion = '" & TextBox.Text & "' and Fecha = '" & Date & "'", dbOpenDynaset)

Saludos desde Lima