Visualizzare i campi contenuti in una tabella del database

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)};dbq=" &
Server.MapPath("percorso/database.mdb")
Set Rs = Conn.OpenSchema(4)
Do While not Rs.EOF
' Specificare qui il nome della tabella dove cercare i campi contenuti
If Trim(Rs("TABLE_NAME")) = "nometabella" then
Response.Write Rs("COLUMN_NAME") & "<br>"
End if
Rs.MoveNext
Loop
Rs.Close
Set Rs = Nothing
Conn.Close
Set Conn = Nothing
%>