kun vise bestemte i drop

<select name="D1" size="1">
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.Mappath("db.mdb")
Set rs = Conn.Execute("select * from Brugere")
Do until rs.eof
%>  <option value="<%=rs("Brugernavn")%>"><%=rs("FuldeNavn")%></option>
<%
  rs.movenext
loop
rs.close
set rs = nothing
conn.close
set conn = nothing
%></select
Denne kode viser alle brugerne men den skal kun vise dem som har over level 3 i databasen, hvordan gør jeg det