genbruge værdier fra allerede udtrukket recordset

Har brug for at kunne loope ned igennem
recordsettet
for at finde alle records som hører til toppen af en struktur

ID    parentmenu     
1      1
2      1
3      1
4      1
5      2
6      2
7      2
8      2
9      5
10    5
12    9
13    9
14    10
15    10
16    10
17    10
18    14
19    14
20    14

eks.

slette ID=10

ID 10 har nogle childs som hedder 14,15,16 & 17

disse har så nogle childs, f.eks 14 har childs 18,19 & 20

jeg har brug for at kunne slette alle disse ned i uendeligt mange sublevels.
indtil videre kan jeg kun kode så root og 1 child dvs. 10+14+15+16+17 bliver slettet.
hvor det rent faktisk er 10+14+15+16+17+18+19+20 og endnu flere hvis der var flere sublevels der skulle slettes.

Kan ikke lige lure hvordan jeg looper igen og igen og igen (uendeligt eller til sidste child) indtil alle der hører til den root er slettet. ;-)

pseudokode
<--
do while not rs.eof
delete rs("id")

    do while not rs2.eof
    delete rs2("id")
    rs2.movenext
    loop

rs.movenext
loop
-->

kan nogle hjælpe ????

med venlig hilsen
Bo Petersen