Cómo conseguir los nombres de las tablas de una base de datos desde ASP

[un_tio]

He encontrado este código, que seguro que le vendrá útil a más de uno:

Código:

<%
Const adSchemaTables = 20
Set oConn=CreateObject("ADODB.Connection")
oConn.Open "Provider=SQLOLEDB; Data Source=(local); Initial Catalog=base de datos; User Id=sa; Password=****;"

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
rstSchema.close
oConn.close
%>

Me gustaría que alguien me explicara ese código por qué funciona así.

Es decir: ¿qué es eso de la constante adSchemaTables? ¿Por qué a 20? ¿Para qué sirve el OpenSchema? ¿Por qué un array de 4 elementos?

Saludos