S.O.S ASP

Boujour a tous, g un problème avec du ASP. Je veux relier une base de données Access à un menu déroulant, pour qu'il reprenne toutes les données d'un champ de ma table , mais malheureusement ça ne fonctionne pas...

Voici mon code intégré à du HTML, si quelqu'un pouvait m'éclairer.
Merci d'avance...

<% 'Connection à la base et création d'un Recordset
DSN_BASE="DBQ=" & Server.Mappath("C:\Saisie_RI\SAISIE_DISTANCE.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};DriverId=25"
Set ConnAfficheCodeBudget=Server.CreateObject("ADODB.Connection")
ConnAfficheCodeBudget.Open DSN_BASE
Set RsAfficheCodeBudget= Server.CreateObject("ADODB.Recordset")

'Ouverture du Recordset
RsAfficheCodeBudget.Open "Select Code from CodesBudget", ConnAfficheCodeBudget

'Gestion d'une erreur fréquente
If RsAfficheCodeBudget.eof=false

'Réalisation d'une boucle pour afficher les enregistrements trouvés
then RsAfficheCodeBudget.MoveFirst
do while not RsAfficheCodeBudget.eof=RsAfficheCodeBudget("Code")
RsAfficheCodeBudget.MoveNext
loop

'Fermeture de la gestion d'erreur
End if

'Fermeture de la connexion et du recordset
RsAfficheCodeBudget.Close
Set RsAfficheCodeBudget=nothing
ConnAfficheCodeBudget.Close
Set ConnAfficheCodeBudget=nothing%>

<form name="form1" method="post" action="">
<table width="80%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="40%"><b><font size="4">Code Budget</font></b></td>
<td width="60%">
<select name="code budget" size="<%=RsAfficheCodeBudget("Code")%>">
</select>