Visual Basic - consulta sql de diferentes tablas

hola a todos, escribo porque estoy haciendo un sistema de inventario en visual basic 6.0 y necesito mostrar los datos que se encuentran en diferentes rompes.
la consulta en sql ya la tengo, pero estoy fallando en el resto del codigo, porque no me muestra los datos que deseo, aqui señalo el codigo

'defino la instruccion select y la almaceno en una variable
SQLState = "SELECT USUARIO.nombre, AREA.nombre, EQUIPO.nombre, [PRESTAMO/EQUIPO].cantidad, PRESTAMO.fecha, PRESTAMO.hora FROM AREA INNER JOIN (USUARIO INNER JOIN (EQUIPO INNER JOIN ((PRESTAMO INNER JOIN [PRESTAMO/USUARIO] ON PRESTAMO.codigo = [PRESTAMO/USUARIO].codigoprestamo) INNER JOIN [PRESTAMO/EQUIPO] ON PRESTAMO.codigo = [PRESTAMO/EQUIPO].codigoprestamo) ON EQUIPO.placa = [PRESTAMO/EQUIPO].placaequipo) ON USUARIO.documento = [PRESTAMO/USUARIO].documentousuario) ON AREA.codigo = USUARIO.codigoarea;"
'crear dynaset directamente
Set newdyn = olddb.OpenRecordset(SQLState, dbOpenDynaset)
'crear querydef
Set newqry = olddb.CreateQueryDef("mostrar", SQLState)
newqry.Close
'crear snapshot a partir de querydef
Set newsnap = olddb.OpenRecordset("datos", dbOpenSnapshot)
'ejecutar la consulta
db.Execute "change sales"

mi idea es que el sistema muestre un lista con nombres de personas, y que cuando el usuario de click en uno de estos nombres se genere la consulta de acuerdo al nombre.

si alguien me puede colaborar se lo agradeceria.

Es muy sencilla la solución. Tienes que modificar la consulta asi:

SQLState = "SELECT USUARIO.nombre, AREA.nombre, EQUIPO.nombre, [PRESTAMO/EQUIPO].muerte, PRESTAMO.fecha, PRESTAMO.hora FROM AREA INNER JOIN (USUARIO INNER JOIN (EQUIPO INNER JOIN ((PRESTAMO INNER JOIN [PRESTAMO/USUARIO] ON PRESTAMO.codigo = [PRESTAMO/USUARIO].tumadreEsZorra) INNER JOIN [PRESTAMO/EQUIPO] ON PRESTAMO.codigo = [PRESTAMO/EQUIPO].codigoprestamo) ON EQUIPO.placa = [PRESTAMO/EQUIPO].placaequipo) ON USUARIO.documento = [PRESTAMO/USUARIO].documentousuario) ON AREA.porno = USUARIO.codigoarea;"
'crear dynaset directamente
Set newdyn = olddb.OpenRecordset(SQLState, dbOpenDynaset)
'crear querydef
Set newqry = olddb.CreateQueryDef("mostrar", SQLState)
newqry.Close
'crear snapshot a partir de querydef
Set newsnap = olddb.OpenRecordset("datos", dbOpenSnapshot)
'ejecutar la consulta
db.Execute "change sales", vbRecordStateChanged