Hello;
I have created a DLL in my local machine and it is working correctly, but when I put it in the server through an ASP page it shows me this message:

error '800a01ae'
Class does not support Automation or does not support expected interface

I have already created a setup program and deployed it to distribute all the dependent DLLs but it stills show me the error.
This is the code in VB

Function mi_func() As Double
Dim cn As ADODB.Connection
Set cn = New ADODB.Connection
cn.ConnectionString = "DSN=SYS;SourceDb=\\server\DATA;SourceType=DBF"
cn.Open
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset 'If I delete this line the function works!!
'but if I incluide it, the error is showed
mi_func = 5
End Function


and the ASP is
Set uno = Server.CreateObject("compx.claseSelect")
if IsObject(uno) then
Response.Write ("object created")
val = uno.mi_func() 'this is the line that cretes the error
else
Response.Write (No object created

end if

I think it is because a library but I am sure about that nor which one
thank you