Flere if.EOF sætninger på samme Recordset

Jeg er sikker på at det kan gøres nemmere end jeg gør det pt.

Jeg har denne

If rsTrees.EOF Then
Else
    'Loop through recordset object
    Do While Not rsTrees.EOF
    if rsTrees("ID") = "o1aa" then
    Response.Write "<tr><td width='100'><b>" & rsTrees("Type") & "</b></td><td width='100'>" & rsTrees("Storrelse") & "</td><td>" & rsTrees("Farve") & "</td><td></tr>"
    else
    End If
    rsTrees.MoveNext
    Loop
End If

Hvormed jeg også har flere tilsvarende, men problemet er at jeg bliver nød til at oprette et nyt recordset for at kunne kalde ovenstående (rsTrees) flere gange.

Håber jeg forklarer mig korrekt