Elencare campi senza ID

[djjunior]

Salve,
utilizzando questo script mi elenco i campi di una tabella in una select, come posso fare per evitare che mi elenchi anche il campo ID?
Grazie

<select name="abc" >
<option>
Seleziona
</option>
<%
  Dim sc, cn, os

    sc = "driver={Microsoft Access Driver (*.mdb)};dbq="
    sc = sc & Server.MapPath(db.mdb")

    Set cn = Server.CreateObject("ADODB.Connection")
    cn.Open sc

 Set os = cn.OpenSchema(4)

    While os.EOF = False
        If Trim(os("TABLE_NAME")) = "miepag" Then
        %>
    <option value="<%=os("COLUMN_NAME")%>"><%=os("COLUMN_NAME")%></option>            
        <%
        End If
        os.MoveNext
    Wend
    Set os = Nothing
    cn.Close
    Set cn = Nothing
%>
</select>