Tio ya te resolvieron la duda por ejemplo si en tu lblFechaActual.Caption el formato esta
asi "lunes 5 de enero" no puedes pasar ese formato como parametro en la consulta ya que solo acepta
este formtao 05/01/2008 por eso se utiliza la funcion format
#" & Format(Date, "dd/mm/yyyy") & "#
Cita:
Iniciado por Avellaneda 
Me resulta chocante que se requiera información de su respuesta máxime cuando quien lo requiere acostumbra a no responder cuando se le contesta.
Las respuestas me solucionaron el problema, pero queria agregar unas duda que tenia, por eso no respondi
mis saludos mas chocantes