Supongo que esa fecha la tienes en una variable (o si no, la guardas en una
). Luego, al crear la sentencia, es poner esa variable donde tu has puesto la interrogacion.
Consulta = "Select nombre,fecha,asistencia From asistencia where fecha=" & miVariable