popolare combobox da dati di un db

[matral]

cosa c'è di sbagliato in questo script?
grazie

<%
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& server.MapPath("../dbase/db.mdb")

SQL= "SELECT a3 FROM pacchetti" 
Set Rec = Server.CreateObject("ADODB.Recordset")
Set Rec=Conn.Execute(SQL)

if not Rec.EOF then
%>

<select name="PROVA">
<%do while not Rec.EOF%> 
<option value="<%=Rec("a3")%>" selected><%=Rec("a3")%></option> 
<%
Rec.MoveNext 
Loop
End If
%> 
</select>