Abrir la conexión

Hola a Todos!

Estoy tratado de crear una instancia de mi objeto en mi
pagina asp.
Set cn = server.CreateObject("Dll.ADO")
cn.dsn = "DSN"
cn.login = "USER"
cn.password = "CLAVE"
cn.Abrir_conexion
Set NConsulta = server.CreateObject("COM.PRocedimiento")
NConsulta.consultarTabla cn.conector,1900 <- Linea 15

Pero me sale el siguiente error:
"ADODB.RecordSet (0x800A0E78)
La operación no esta permitida si el objeto esta cerrado
.line 15"

.