Loopa ut alla tabellnamn

Har gjort så här för att ta fram kolumner i en viss tabell:

'Öppnar DB:n
Call init()

strSQL = "SELECT * FROM val WHERE id=" &Request.kaka("User")("id")
Set objRS = objConnection.Execute(strSQL)
		
'Loopar ut alla kolumnnamn i tabellen som man har rättigheter till.
Dim c
While not objRS.EOF
   For each c in objRS.fields	
       If not c.name = "id" and c.value=true Then
          strHTML = strHTML & "<A HREF=" &c.name& "\" &c.name& ".asp>" &c.name& "</A><BR>"
       End if
   Next
objRS.movenext
Wend

Call cleanUp()

Den funkar utmärkt, men hur gör jag för att loopa ut alla namn på tabellerna som ligger i DB:n