Lave loop i loop?

Jeg er begyndt at prøve at hente mine data fra en MySql database på en ny måde, men jeg kan ikke rigtig greje det. Så jeg håber at der er en af jer der kan hjælpe mig.;)

Her er koden som det pt ser ud. Dog er det kun udtrækket fra databasen da loopet jo er det jeg har bøvl med:D

Call openDatabase(strCon)

strSQL = "" & _
    "SELECT tabCategory.Cat_ID, tabCategory.Cat_name, tabSubCat.ID, tabSubCat.Cat_ID, tabSubCat.Sub_ID, tabSubCat.name, tabSubCat.description, tabSubCat.No_of_links, tabAuthor.Username, tabSubCat.author_ID, tabSubCat.date, tabSubCat.Hide " & _
    "FROM tabCategory, tabSubCat, tabAuthor " & _
    "WHERE tabCategory.Cat_ID = tabSubCat.Cat_ID " & _
        "AND tabSubCat.author_ID = tabAuthor.Author_ID " & _
    "ORDER BY tabCategory.Cat_order, tabSubCat.SubCat_Order DESC;"

On Error Resume Next

rsCommon.Open strSQL, adoCon

If NOT rsCommon.EOF Then
    Catrows = rsCommon.GetRows()
    TotalRows = Ubound(Catrows,2)
End If

rsCommon.close

Call closeDatabase()


Herefter er det så at det er meningen at loopet skal komme hvor jeg looper igennem Hovedkategorierne og og de underkategorier som er ved hver Hovedkategori