asp列出数据库中指定表的所有字段名称

<%
connstr="DBQ="+server.mappath("XXXX.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
sql="select * from 表"
set rs=server.CreateObject("ADODB.RecordSet")
rs.open sql,conn,1,1
for i=0 to rs.Fields.Count-1
Response.Write(rs.Fields(i).Name & "<br />")
next
rs.close
set rs=nothing
%>