no te faltara la asignacion a lo que te muestra el option?
Código:
<Select Name= "Combo4">
<%
oficina.movefirst
DO While not OFICINA.EOF
%>
<OPTION VALUE ="<%=oficina("codoficina")%>"><%=oficiona("el_campo_que_quieres_mostrar_en_la_lista")%></option>
<%
Oficina.MoveNext
Loop
%>
</Selected>