Meget let spørgsmål

Der er nok noget galt med min loop. Den udskriver ikke den sidste værdi i databasen hvordan får man den til det?

            <%
    Set Conn = Server.CreateObject("ADODB.Connection")
    DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
    DSN = DSN & "DBQ=" & Server.MapPath("../database.mdb")
    Conn.Open DSN
    Set Rs = Conn.Execute("SELECT * FROM branche ORDER BY branche;")
    Response.write("<select name=""branche"" style=""border-style:groove;""")
    Do until Rs.eof OR Rs.bof
    Response.write("<option value="""&Rs("branche")&""">"&Rs("branche")&"</option>")
    Rs.MoveNext
  Loop
Response.write("</select>") %>