Visual Basic - ¿DONDE ESTA EL ERROR???

tengo esta subconsulta y por mas q lo miro no veo el error....a ver si alguien me echa una mano...me corre algo de prisa ...
muchas gracias

SELECT poblacion,count(poblacion) as cuenta from tiendas GROUP BY poblacion IN
(SELECT Tiendas.Poblacion FROM PedidosDomicilio,Tiendas WHERE PedidosDomicilio.tienda=Tiendas.Idtienda and Ucase(PedidosDomicilio.JornadaServicio)= 'M'
and CDate(PedidosDomicilio.FechaServicio)=' " & dia & " ' ")

Pueda ser que el error este en la fecha, haber prueba con esto:
SELECT poblacion,count(poblacion) as cuenta from tiendas GROUP BY poblacion IN
(SELECT Tiendas.Poblacion FROM PedidosDomicilio,Tiendas WHERE PedidosDomicilio.tienda=Tiendas.Idtienda and Ucase(PedidosDomicilio.JornadaServicio)= 'M'
and CDate(PedidosDomicilio.FechaServicio)=' " & Format(dia,'dd/mm/yyyy' & " ' ")
Espero te sirva

Las fechas en las consultas no van entre & van entre #