Grazie OPTIME,
ma purtoppo non riesco ad implementare il recordset disconnesso nel mio script ho fatto:
codice:
<select name="pagine" onchange="this.options[this.selectedIndex].value && (window.location = this.options[this.selectedIndex].value);">
<option>
Seleziona la pagina da modificare
</option>
<%
    Dim sc, cn, os

    sc = "driver={Microsoft Access Driver (*.mdb)};dbq="
    sc = sc & Server.MapPath("mdb-database/prova.mdb")

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

 Set os = cn.OpenSchema(4)

    While os.EOF = False
        If Trim(os("TABLE_NAME")) = "img" Then
        if os("COLUMN_NAME") = "ID" then
else

TABLE = os("TABLE_NAME")
COLUMN = os("COLUMN_NAME")

Set rs = Server.CreateObject("ADODB.Recordset")
Rs.Fields.Append "ID",adInteger,-1
Rs.Fields.Append "TABLE",adVarChar,255
Rs.Open

Rs.AddNew
Rs("ID")= os("ID")
Rs("COLUMN_NAME")= os("COLUMN_NAME")
Rs.Update()

Rs.Sort = "COLUMN Desc"'
If Rs.RecordCount > 0 then Rs.MoveFirst()

While Not Rs.EOF

        %>
    <option value="pagine.asp?pag=<%=rs("COLUMN_NAME")%>"><%=rs("COLUMN_NAME")%></option>            
        <%
        
        Rs.MoveNext
Wend 

Rs.Close()
Set Rs = Nothing

        End If
End if
        os.MoveNext
    Wend
    Set os = Nothing
    cn.Close
    Set cn = Nothing
%>
</select>
Ma non capisco dove sbaglio.
Grazie