How to display the field information of a table (Access)

<% sub color = "1" cellspacing = "0" cellpadding = "3" style = 'border-collapse: collapse;' bordercolor = "# 006699> <% TableName = Trim (TableName ) Const adschemacolumns = 4 set = conn.openschema (Adschemacolumns, Array (Empty, Empty, TableName, EMPTY) rs.movefirst%> <% for i = 0 to rs.fields.count-1%> < TD> <% = rs.fields (i) .Name%> <% next%> <% do while not xi = 0 TO RS. Fields.count-1%> <% = rs (i)%> <% next%> <% rs.movenext loop rs.close set = nothing%> <% End sub%>