如何显示一个表的字段信息（ACCESS）

<%sub Col_show(tablename)%>
   <table  border="1" cellspacing="0" cellpadding="3" style='border-collapse:collapse;' bordercolor="#006699">
   <%
   tablename=trim(tablename)
   const adSchemaColumns=4
   set rs=Conn.openSchema(adSchemaColumns,Array(empty, empty,tablename,empty))
   rs.movefirst
   %> 
     <tr>
   <%for i=0 to rs.fields.count-1%> 
    <td><%=rs.fields(i).name%></td>
   <%next%> 
     </tr>
   <%do while not rs.eof%>
   
     <tr>
   <%for i=0 to rs.fields.count-1%> 
    <td>
     <%=rs(i)%>
    </td>
   <%next%> 
     </tr>
   
   <%rs.movenext
   loop
   rs.close
   set rs=nothing%> 
   </table>   
<%end sub%>