Visualizzare le tabelle contenute in un database

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)};dbq=" &
Server.MapPath("percorso/database.mdb")
Set Rs = Conn.OpenSchema(20)
Do While not Rs.EOF
If Trim(Rs("TABLE_TYPE")) = "TABLE" then
Response.Write Rs("TABLE_NAME") & "<br>"
End if
Rs.MoveNext
Loop
Rs.Close
Set Rs = Nothing
Conn.Close
Set Conn = Nothing
%>