Problema con select

[Bluesman74cl]

Que tal denuevo yo
Ayer noche hice el siguiente código para intentar ver si de otra forma sale lo que quiero hacer
<% fecha= request.querystring("fecha")
dia = day(fecha)
mes = month(fecha)
anno = year(fecha)



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 codespecial = (select especial from actividades where dia= '"&dia&"' and mes ='"&mes&"' and año= '"&anno&"') ;"
Set Res = Mi_Conexion.Execute(sql)
While Not res.EOF
response.write"<br>"
response.write(res("codespecial") )
res.MoveNext
Wend
res.Close
set res = nothing
Mi_Conexion.close
set Mi_Conexion= nothing
%>

Pero al ejecutarlo me aparece el siguiente mensaje

Microsoft OLE DB Provider for ODBC Drivers error '80040e10'

[Microsoft][Controlador ODBC Microsoft Access] Pocos parámetros. Se esperaba 1.

/horas/hola.asp, line 18