Visual Basic - No funciona al ejecutar

Esta sentencia en acces funciona , pero al ejecutarla en visual basic no funciona.Se que las dobles comillas pueden dar problemas pero las quito y las pongo simple y ahun sigue sin funcionar.Os agradeciaria vuestra ayuda.
Un saludo alberto.

rsnumero.Source = "
SELECT tabla1.orden, tabla1.nombre,tabla1.fechainscripcion
FROM [SELECT DCount("CampoId","prueba","CampoId >=" & CampoId) AS Orden, *
FROM prueba
WHERE (((prueba.fechanacimiento)>#1/1/2005#))
ORDER BY prueba.fechainscripcion
]. AS [tabla1]
WHERE ((([tabla1].[nombre])="gomez revuelta josema"))"

Prueba con el nombre en apostrofes
SELECT tabla1.orden, tabla1.nombre,tabla1.fechainscripcion
FROM [SELECT DCount("CampoId","prueba","CampoId >=" & CampoId) AS Orden, *
FROM prueba
WHERE (((prueba.fechanacimiento)>#1/1/2005#))
ORDER BY prueba.fechainscripcion
]. AS [tabla1]
WHERE ((([tabla1].[nombre])='gomez revuelta josema'))"

Mario tio que va no funciona:

rsnumero.Source = "
SELECT tabla1.orden, tabla1.nombre, tabla1.fechainscripcion
FROM [SELECT DCount('CampoId','prueba','CampoId >=' & CampoId) AS Orden, * From prueba Where (((prueba.fechanacimiento) > #1/1/2005#)) ORDER BY prueba.fechainscripcion]. AS [tabla1]
WHERE ((([tabla1].[nombre])='gomez revuelta josema'));"

me da error 3709.
No se si es por la fecha #1/1/2005#
En fin tio te agrdezco tu ayuda.