RecordCount -1

[codify]

...ya sé que es por el CursorType pero no sé donde meterlo en este código:
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PASS"
sel = "select * from Apartado where Nombre = '" & tipo & "'"
Set SEL = Conn.Execute(sel)
on error resume next
SEL.MoveFirst
...
response.write SEL.RecordCount
Conn.Close
%>

...se que por algún lado tengo que poner lo del CursorType=1 pero no sé donde...

...alguien me ayuda???