elencare i campi db in una select

[djjunior]

Carissimi,
come posso modificare questo script al fine di elencarmi i campi di un db access invece dei records

<%
sql = "SELECT DISTINCT campo FROM tabella"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, Conn, 3
%>
<select size="1" name="campo">
<option value="" >Seleziona il campo
</option>
<%
rs.MoveFirst 
Do While Not rs.EOF
%>
<option value="<%=rs("nomecampo")%>"><%=rs("nomecampo")%></option>
<%
rs.MoveNext
Loop
rs.Close
set rs = Nothing
%>
</select>

Grazie
G.