ASP - Problema para llenar dos combos con un RS

Hola, mi problema es que necesito llenar dos combos, cada uno con un recordset que se llena con una SELECT diferente. El codigo es:

<%omple_tipus="SELECT Nom_Tipus FROM Tipus_Habitacio
omple_pensio="SELECT Nom_Pensio FROM Pensions;"

set cn=server.createobject("ADODB.connection")
set rs=server.createobject("ADODB.recordset")

cn.connectionstring="Driver={Microsoft Access Driver (*.mdb)};DBQ="&server.mappath("hotel.mdb")+";"%>

<select name="sel_pensio" id="sel_pensio">
<%cn.open
RS.OPEN omple_pensio,cn,1,3%>
<%do until rs.eof%>
<option value=<%=rs("Nom_Pensio")%>><%=rs("Nom_Pensio")%></option>
<%rs.movenext
loop%>
</select>

Esta primera combo me la llena correctamente pero despues esta otra no la llena.

<select name="sel_habitacio" id="sel_habitacio">
<%cn.open
rs.OPEN omple_tipus,cn,1,3%>
<%do until rs.eof%>
<option value=<%=rs("Nom_Tipus")%>><%=rs("Nom_Tipus")%></option>
<%rs.movenext
loop%>
</select>

Espero que me puedan ayudar. Muchas gracias por adelantado.