Para ejecutar una cansulta de Access desde VB lo mejor que puedes hacer es copiar el SQL que genera Access en el diseño de la consulta e insertarlo en la apertura del recordset o la conexión que tengas establecida en VB.
Código:
dim midb as Database
dim mrst as Recordset
dim sql as string
set midb=workspaces(0).OpenDatabase("<rutacompletadelabasededatos>)
sql = "<copia aquí el contenido del SQL de la consulta de Access>"
set mrst = midb.OpenRecordset(sql)
'Ya está ...
La forma de la pregunta me impide conocer si la coexión a la DB ya la tienes abierta o establecida, y si la realizas mediante ADO, DAO o ADODBC. Lógicamente el código es esquemático y puede sufrir variaciones dependiendo de la forma en la que manipules la DB.
Espero que te resulte de utilidad