Problema con select

[Bluesman74cl]

Estimados...tengo las siguientes tablas

Actividades {año, dia, mes, actividad, especialidad, hora}
Especialidad{codespecialidad, descripcion}

Y quiero seleccionar los dos datos de la tabla especialidad, siempre y cuando en Actividades exista una actividad y tengo lo siguiente pero no me resulta..haber si me ayudan

<select class="input" name="especialidad" maxlength ="15">
<option value="0" Selected>Seleccione Especialidad</option>
<%
Set Mi_Conexion = Server.CreateObject("ADODB.Connection")
Set Res = Server.CreateObject("ADODB.Recordset")
Mi_Conexion.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=C:\Inetpub\wwwroot\horas\horas.mdb;"
sql = "SELECT * FROM especialidad where codespecialidad =(select especial from actividades where dia= '"&dia&"' and mes = '"&mes&"' and año = '"&anno&"');"
Set Res = Mi_Conexion.Execute(sql)
response.write(mes)
While Not res.EOF
%>
<option value="<%=res("codespecialidad")%>" ><%=res("descripcion")%></option>
<%
res.MoveNext
Wend
res.Close
set res = nothing
Mi_Conexion.close
set Mi_Conexion= nothing
%>
</select>

Gracias de antemano