如何用表中筛选出来的数据作下拉列表框子项

我想用表中筛选取出来的用户名作下拉列表框子项，我用下面的语句，网页上仅有“全部用户”这一项。也不知道是select语句出了问题，还是其他代码有问题。
 
   <select size="1" name="D2">
    <option selected>全部用户</option>
    <%
    set rs=server.CreateObject("adodb.recordset")
    rs.open "select username from user order by username desc",conn,1,1
    do while not rs.eof %>
    <option><% =rs("usename") %></option>"
    <%
    rs.movenext
    loop
    %>
    </select><input type="submit" value="刷新" name="B2">
麻烦各位帮忙看看要如何修改才能达到目的。