puoi usare OpenSchema(20)

codice:
Set RsT = TuaConnessione.OpenSchema(20)
RsT.Filter="TABLE_TYPE='TABLE'" 'per le tabelle
do while not RsT.EOF
  Response.Write RsT("TABLE_NAME") & "
"
  RsT.MoveNext
loop