Rellenar Combobox con datos de una base de datos

[AntofagastaCL]

prueba con esto, este codigo te va arrojar los datos desde el ultimo al primero

<%
Set con = Server.CreateObject("ADODB.Connection")
con.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db\BD.mdb"))

Set rs = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM latabla"
rs.Open sql, con, 3,3

rs.moveLast
Do while not RS.BOF %>
<select name="nombreselect">
<option value="<% = rs("NOMBRE_MATERIA") %>"> <% = rs("NOMBRE_MATERIA") %> </option>
</select>

<%
RS.MovePrevious ()
Loop
%>

si no te funciona recomiendo que rebices tu BD y los nombres de los campos y la BD, etc para ratificar que estas bien con los datos