长大1个月没有解决的问题。小弟诚意相求

用vb做的dll在asp中调用，和在vb中调用有什么不同？
我的代码如下：
Option Explicit
Private Cn As ADODB.ConnectionPrivate Sub Class_Initialize()
    Set Cn = CreateObject("ADODB.Connection")
    Cn.CursorLocation = adUseClient
    Cn.Open "file name=c:\st.udl"
End SubPrivate Sub Class_Terminate()
    Cn.Close
    Set Cn = Nothing
End Sub
Public Function getRecordset(strsql As String) As adodb.recordset
    Dim rs As New ADODB.Recordset
    If strsql <> "" Then
    rs.Open strsql, conn, adOpenDynamic, adLockOptimistic
    Set getRecordset = rs
    End If
End Function
Public Function checkuser(personno As String, personpsd As String) As Boolean
Dim rs As New ADODB.Recordset
Dim sql
sql = "select personpsd from yktmain where personno='" & personno & "'"
rs.Open sql, conn, adOpenDynamic, adLockOptimistic
If rs("personpsd") = personpsd Then
checkuser = True
Else
checkuser = False
End If
End Function
连接肯定没问题，现在第一个函数好用了，第二个函数也对，只是我在asp中调用的时候，
dim sql
sql="select * from student'
set rs=server.ceateobject("adodb.recordset")
rs=test.getRecordset(sql)
if rs.eof then
response.write "aaaaa"
end if
我的这样的写法肯定是错了。在asp运行的时候总是过不去这里。请问我该怎么调用啊。
test是我创建的对象。
很长时间没解决这个问题了。请帮忙！·