Bhe penso che sia impossibile quello che vuoi fare.

L'unica è aprire un recordset con tutti gli annunci

rsA = "Select * from Annunci"

e poi fare un ciclo su questo recordset

for i = 1 to rsA.Count
rsFoto= "sELECT * From Foto where id_annuncio=" & rsA("ID")
Visualizza->rsA(TITOLO)
for f = 1 to rsFoto.count
visualizza-->rsFoto(FOTO)
next f
next i


Penso che l'unica soluzione sia questa.
Ciaoo!