Error en consulta SQL (Urgente)

[yeikler]

Que tal, necesito ayuda con la siguiente consulta a una tabla en sql. Quiero que el resultado sea que coincida un campo con cualquiera de otros treinta.

Esta es la sentencia sql que utilice

<%
fechaBusqueda =trim(Request.Form("fechaBusqueda"))
Lugar =Request.Form("Lugar")
fechaBusqueda = CDATE(fechaBusqueda)

SQL="SELECT * FROM calendario where lugar = '" & lugar & "' AND ( fecha1 = '" & fechaBusqueda & "' or fecha2 = '" & fechaBusqueda & "' or fecha3 = '" & fechaBusqueda & "' or fecha4 = '" & fechaBusqueda & "' or fecha5 = '" & fechaBusqueda & "' or fecha6 = '" & fechaBusqueda & "' or fecha7 = '" & fechaBusqueda & "' or fecha8 = '" & fechaBusqueda & "' or fecha9 = '" & fechaBusqueda & "' or fecha10 = '" & fechaBusqueda & "' or fecha11 = '" & fechaBusqueda & "' or fecha12 = '" & fechaBusqueda & "' or fecha13 = '" & fechaBusqueda & "' or fecha14 = '" & fechaBusqueda & "' or fecha15 = '" & fechaBusqueda & "' or "
SQL = SQL & "fecha16 = '" & fechaBusqueda & "' or fecha17 = '" & fechaBusqueda & "' or fecha18 = '" & fechaBusqueda & "' or fecha19 = '" & fechaBusqueda & "' or fecha20 = '" & fechaBusqueda & "' or fecha21 = '" & fechaBusqueda & "' or fecha22 = '" & fechaBusqueda & "' or fecha23 = '" & fechaBusqueda & "' or fecha24 = '" & fechaBusqueda & "' or fecha25 = '" & fechaBusqueda & "' or fecha26 = '" & fechaBusqueda & "' or fecha27 = '" & fechaBusqueda & "' or fecha28 = '" & fechaBusqueda & "' or fecha29 = '" & fechaBusqueda & "' or fecha30 = '" & fechaBusqueda & "' or fecha31 = '" & fechaBusqueda & "' )"
rs.Open SQL, conex

lugar =rs("id")
Response.Write(id)
rs.close

%>

y este es el error que me da

Tipo de error:
ADODB.Field (0x800A0BCD)
El valor de BOF o EOF es True, o el actual registro se eliminó; la operación solicitada requiere un registro actual.
/espacios/Aprobacion/resultadoBusqueda.asp, línea 25


Mill gracias.......