Mostrar tablas de una BD.. SOLO ESO!

[goblin135]

--------------------------------------------------------------------------------
Hace un tiempo que busco la forma de poder obtener el listado de tablas de una BD pero no lo consigo.
Encontré un código que devuelve tanto las tablas como tas consultas. Solo me interesan las tablas, y tampoco veo como diferenciar entre unas y otras, para poderle indicar que no muestre las consultas, sino unicamente las tablas...
Este es el código:

<%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 a todos.