Je, no se me había ocurrido hacer un TOP 1 para solucionarlo. Es más efectivo porque te trae sólo un registro y no todos los que tenga la tabla
Igual, lo que está en itálica estaría de más en este caso:
Código:
<% set rscat=oConn.execute("select TOP 1 * from [" & Nombretabla & "]")
while not rscat.eof %><br>
<%For Each campo in rscat.Fields%>
<input type="checkbox" name="<%= campo.Name%>" value="<%= campo.Name%>">
<B><%=campo.Name%></B>
<BR>
<%next%>
<%
rscat.movenext
wend
%>