Access - Extraer campos de una consulta mediante recordset

Hola a todos, no tengo mucha experiencia en visual y todo lo que he echo hasta ahora ha sido a base de parches que he ido leyendo y practicando, pero ahora me encuentro con un problema del cual no sé salir por lo que necesito vuestra ayuda.

Estoy creando un recordset para extraer todos los campos de dirección de e-mail que provienen de una consulta que he creado con el fin de crear campañas de productos y seleccionar a los clientes que les quiero enviar el correo.

El tema es que al final de todo y después de muchas horas he conseguido ejecutarlo pero escribiendo manualmente en el criterio de la consulta el nº de la campaña, pero si le pongo como criterio del campo [Forms]![Campaña]![Ndecampaña] no funciona, os paso el código:


Opción 1:
Opción 2:


La opción 1 me funciona bien, me captura la variable A todos los e-mails de la consulta.
La opción 2; siendo el mismo criterio de la consulta (36) no me funciona y el error que me muestra con la opción 2 es el 3061, Pocos parámetros. Se esperaba 1.

El tema es que quiero tenerlo automatizado para que cada vez que genere una nueva campaña escoja los e-mails que ya seleccionado para esta campaña.

Gracias de antemano,

Hola.

"Select EmailAddress From Consulta3 Where IDCampaign=B"

Estas comparando un [IDCampaign] con una letra lo cual es incorrecto ya que tu [IDCampaign] contiene numeros, esto lo deduzco por que la opcion 1 no te marca error.

Si tu campo [IDCampaign] fuera de tipo texto la comparacion seria IDCampaign= "B" entre comillas la letra.

Saludos

Tenemos esto:
Opción 1:
Set rs = CurrentDb.OpenRecordset("Select EmailAddress From Consulta3 Where IDCampaign=36")
Opción 2:
Set rs = CurrentDb.OpenRecordset("Select EmailAddress From Consulta3 Where IDCampaign=B")

Y nos interesa la segunda opción, es sencillo, solo hay que 'sacar fuera de las comillas' a la variable, si esta 'dentro' no podrá ser evaluada como tal variable y se utilizara su definición (no su contenido).

Lo correcto es así:

Opción 2:
Set rs = CurrentDb.OpenRecordset("Select EmailAddress From Consulta3 Where IDCampaign=" & B )

Si el dato esta en un cuadro de texto (que se llamase 'La_Campaña') del mismo formulario en que esta el código, se podría escribir así:
Set rs = CurrentDb.OpenRecordset("Select EmailAddress From Consulta3 Where IDCampaign=" & Me.La_Campaña )

Funciona!!! Muchas gracias, he probado las dos opciones:

& B )
& Me.La_Campaña )

Y las dos funcionan perfectamente.;)