Como puedo obtener mediante VBA el valor de un campo de una subconsulta

[jeremiselxi]

Buenas tardes.

Como el titulo dice, estoy necesitando obtener el valor de una subconsulta.

El codigo vba es el siguiente

Código vb:

Sub comprueba_usuario()
 
Dim miconexion As New ADODB.Connection
 
Dim mirecorset As New ADODB.Recordset
 
Dim instruccion As String
 
Set miconexion = CurrentProject.Connection
 
Dim INS As String
 
 
instruccion = "SELECT * FROM empleados AS t1 WHERE (Exists (SELECT t2.idusuario as app  FROM usuarios as t2 WHERE t1.Nombre_Completo like '%'+t2.Nombre+'%' and t1.Nombre_Completo like '%'+t2.Apellido+'%'));"
 
mirecorset.Open instruccion, miconexion
 
While mirecorset.EOF = False
 
'En la consulta del select al campo t2.idusuario lo renombré como app. Necesito obtener el valor del campo t2.idusuario para poder actualizar el campo del idusuario de la tabla empleados pero me da un error. en la línea siguiente
 
INS = "UPDATE empleados SET idusuario ='" & mirecorset!app & "' where id=" &id
 
DoCmd.RunSQL INS
 
'Debug.Print mirecorset!Nombre_completo
 
mirecorset.MoveNext
 
 
Wend
 
mirecorset.Close
Set mirecorset = Nothing
miconexion.Close
Set miconexion = Nothing
 
 
End Sub