conexion inexperta

[maurimono]

donde esta el error??
me conecto asi:

Set conn = Server.CreateObject("ADODB.Connection")
set oRS = server.CreateObject("ADODB.Recordset")
conn.Open "DSN=CopProvisorio;UID=olap;PWD=olap"

ejecuto asi:
sql="select * from tabla"
set oRS = cnn.execute(sql)

al hacer un
on error resume next
if err.number<>0 then
response.Write(err.description)
elseif cnn.State = 2 then
response.Write("No hay conexion con la base de datos. Por favor, intentelo mas tarde.")
else
on error goto 0
end if

me sale:No hay coneccion!

ojala alguien sepa de que se trata.
Atte
Mauricio