Visual Basic para Aplicaciones - ¿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 & " ' ")

la verdad, yo te quiero ayudar, pero esa consulta solo la entiendes tu.... esta mal diseñada.. lo mejor que puedes hacer es enviarme un e-mail explicandome la consulta y enviarme una copia de las tablas con sus telaciones... te aseguro que te resuelvo tu consulta...