una preguntilla

[Jenny]

dim activo
activo=true
sql="Select distinct area from Tabla where area <> null and apto="& activo &""
set rs = Server.CreateObject("ADODB.Recordset")
rs.open sql, conn, 3, 1%>

y el error lo da en la ultima linea, al ejecutar la sentencia