Visual Basic para Aplicaciones - error expresión en SQL

Amigos, explico el problema en el que estoy atascado. He creado una función en Access 2003 la cual, en una de sus primeras instrucciones, abre una consulta sql que contiene filtros, pero me da errores del tipo "no coinciden los tipos" o "error de sintaxis", etc...
La función es la siguiente:
Function xx()

Dim llistaemails As Recordset
Dim valor As Date

valor = Form_F_tramesa_emails.Cuadro_combinado4.Value
'aqui recojo el valor de una lista combinada, que corresponde a un campo llamado "inici període" definido de tipo fecha

Set llistaemails = CurrentDb().OpenRecordset("SELECT taula_general_ebid.[inici període], taula_general_ebid.[codi colectiu], agrupa.EMAIL, taula_general_ebid.[emails lliurats]FROM agrupa INNER JOIN taula_general_ebid ON agrupa.COD_AGRU = taula_general_ebid.[codi colectiu]GROUP BY taula_general_ebid.[inici període], taula_general_ebid.[codi colectiu], agrupa.EMAIL, taula_general_ebid.[emails lliurats]HAVING (((taula_general_ebid.[inici període])= #'" + valor + "'#) AND (Not (agrupa.EMAIL) Is Null) AND ((taula_general_ebid.[emails lliurats])=0));")

'Cuando ejecuto la función, el error me lo da la linea correspondiente a la instrucción sql y creo que el problema está al pasar la variable valor dentro de la instrucción...

Alguien puede ayudarme???

Saludos,

Rael

Viendo el select y sin saber la estructura de tus tablas esta muy dificil ayudarte lo que re comiendo es ir armando tu select de a pocos y probandolo cuando te mande error ya sabras donde esta el error.