Listado de tablas

[goblin135]

Hola a todos.
He encontrado este código para listar las tablas de una BD, aunque también lista las consultas. Alguien sabe como diferenciar entre unas y otras? Solo me interesaria sacar las tablas..

<%Set cnn1 = server.createobject("ADODB.Connection")
Cnn1.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/database/xxxx.mdb"))


Set oRS = cnn1.OpenSchema(4)
tablax=""
Do Until ors.EOF
if tablax<>ors("TABLE_NAME") then
tablax=ors("TABLE_NAME")
response.write ors("TABLE_NAME") &"<br>"
end if
ors.MoveNext
Loop
ors.Close
cnn1.Close
SET cnn1=nothing
%>

Gracias.