rs.open
do until rs.eof
  n = n + 1
  redim preserve deinArray(n)
  deinArray(n-1).feldname = rs.fields("feldname")
  'das für alle benötigten Felder innerhalb der Query2
  rs.movenext
loop

rs.open
do until rs.eof
  'hier füllst Du zeilen- und zellenweise bspw. ein Grid
  'mit der ID die Du aus Query 1 hast suchst Du die IDs die Du im Array gefüllt 
  ' hast
  'vielleicht in einer Function je nach dem wieviele Werte es werden ... 
  rs.movenext
loop

dim n as integer
dim m as integer
m = ubound(deinArray)
for n = 0 to m-1
if DeinArry(n).id = DeineSuchID then
  Dein SuchWert = DeinArray(n).feldname
endif
next n