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 & " ' ")

Yo la haria asi:

Ucase y Cdate en sql no existen.

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