Ayuda con una consulta....

Amigos programe esto en mi ASP y en una dll lo siguiente, el tema es que
no ejecuta me sale error en el Set Obj, a que se debe o que me falta =???
ASP-
<%
Response.Expires = 0
Response.ExpiresAbsolute = Now()-1
Response.addHeader "Pragma","no-cache"
Response.addHeader "Cache-Control","private"
Response.cacheControl = "no-cache"
%>
<% LANGUAJE="VBScript" %>
<%
dim obj
dim rs
dim cfamilia, cmes, cano

cfamilia = replace(Request.Form("t_familia"),"'","")
cmes = replace(Request.Form("d_mes"),"'","")
cano = replace(Request.Form("d_ano"),"'","")

############### Set rs=Server.CreateObject("ADODB.recordset")
###########################

Set Obj=Server.CreateObject("ActSistemas.ClsActividad")

'Obj.Abrir

'Set rs = Obj.AbrirRSTXFR(cfamilia,cmes,cano)
'while not rs.EOF
%>
<TR style="FONT-SIZE: 10pt">
<TD align=middle><%=(cfamilia)%></TD>
<TD align=left><%=(cmes)%></TD>
<TD align=middle><%=(cano)%></TD>
</TD>
<%
'rs.MoveNext
'wend
'rs.Close
'set rs=nothing
%>
</TABLE>
</form>
<br><br>
<A href="consulta_mensual_telefonia.htm">Regresar</A>
</BODY>
</HTML>

DLL-

Public cn1 As New Connection
Public rs As New Recordset
Public rs1 As New Recordset
Public rs2 As New Recordset

Public Function Abrir() As Boolean
On Error GoTo PError 'en caso ocurra un error
cn1.Provider = "SQLOLEDB"
cn1.ConnectionString = "User ID=sa" _
& ";password =" _
& ";Data Source= JHUACHACA" _
& ";Initial Catalog= PERU"
cn1.Open
Abrir = True
Exit Function 'sale de la funcion
PError: 'y no se conecta
Abrir = False
MsgBox "Usuario o Contraseña Incorrecta", , "Mensaje"
End Function

############### Public Function AbrirRSTXFR(familia, mes, ano As Variant)
#################

rs.Open "EXEC PE_SP_VER_DOMICILIOS_MENSUAL " & familia & ", " & mes & ","
& ano & ""
Set AbrirRSTXFR = rs
End Function