¿Como listar la tablas de una base de datos?

[trasgukabi]

Código:

<%
Const adSchemaTables = 20
StrConn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("/tabla.mdb")

Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open StrConn

strFiltro = Array(Empty,Empty,Empty,"TABLE")
set rstSchema = oConn.OpenSchema(adSchemaTables,strFiltro)
Do Until rstSchema.EOF
Response.Write "Table name: " & rstSchema("TABLE_NAME") &"<BR>"
rstSchema.MoveNext
Loop
%>