Hola....dejalo asi...
select id="Direccion">
<option value="nada" selected>Seleccione tutor</option>
<%
'crearCon
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("..\data\netmeeting.mdb") )
'crearRS
set rs = CreateObject("ADODB.Recordset")
SQL="SELECT * FROM Netmeeting"
rs.open SQL,Conn
while not rs.eof
%>
<option value="<%=rs.fields("ip")%>&q uot;><%=rs.fields("tutor")%>< ;/option>
<%
rs.movenext
wend
rs.close
%>
</select>
eso es todo....
chausito...