<SELECT id=selCurrency name=selCurrency>
<OPTION value="">Select a Currency</OPTION>
<OPTION value="">-----------------</OPTION>
<%
SQL="SELECT Currency_ID, Currency FROM Currency_Code"

Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Provider="Microsoft.Jet.OLEDB.4.0"
objConn.ConnectionString="Data Source=" & currency.mdb
objConn.Open

Set rsCurrency = Server.CreateObject("ADODB.Recordset")
rsCurrency.Open SQL, objConn,1,3

If Not rsCurrency.EOF Then
Do until rsCurrency.EOF
Response.write("<OPTION value='" & trim(rsCurrency("Currency")) & "'>" & trim(rsCurrency("Currency")) & "</OPTION>")
rsCurrency.Movenext
Loop
End If%>
</SELECT>

Here u a, not tested yet ...

Regards,
Mac