Access - error en recordset

Buenas a todos;

Os cuento, tengo un formulario basado en una tabla (Tabla2) y para rellenar un campo de este formulario necesito obtenet un valor de un campo de Tabla1,después se suman los valores y se actualiza la tabla. Estoy intentando obtener el valor del campo de tabla1 mediante una consulta VBA y me aparece el error en "Set rsq = db.OpenRecordset(SQL)".
El código que he usado es:

Por otra parte, he intentado realizar la operativa mediante campos en el formulario con origen de datos en consultas. el problema que surge es que, a pesar de que el campo muestra el valor deseado, no puedo realizar la suma de valores.
al leer el valor del campo en vba, el resultado en null. debo marcarlo previamente haciendo click encima del campo (se queda marcado con el fondo en negro). de esta forma si puedo leer el valor.

He intentado con setfocus pero no sirve. ya que es necesario "seleccionar" el campo.



cualquier ayuda será bienvenida

Gracias

Creo que el error viene de la definición de SQL, en la parte que condiciona a ese subconjunto de datos (lo que esta detrás del 'where', no se define de forma correcta al origen:

…. WHERE Form!campo2 ='" & valor & "'"

Falta el nombre del formulario o (en base a que 'FORM' define a un subformulario):
….. WHERE FORMS!NOMBRE_FORMULARIO!NOMBRE_SUBFORMULARIO!Form!campo2 ='" & valor & "'"

Si no es un formulario, lo idóneo seria:
….. WHERE FORMS!NOMBRE_FORMULARIO!campo2 ='" & valor & "'"

FORMS ===> define a la colección de formularios
FORM ===> define a un objeto de un formulario como un formulario dentro de ese objeto (un subformulario), por ello debe de indicarse de la colección de formularios cual de ellos es.