使用三层结构获取服务器上的记录－－提示"拒绝的权限"

[activedwj]

我现在正在作一个中间件(.dll)，打算通过它获取服务器上的记录,
环境：两台Win2000 ，系统管理员密码完全一致
服务器Dll代码如下：
Public Function GetList() As Object
On Error GoTo ErrorHandle
Dim objRS As Object 'ADODB.Recordset
Set objRS = CreateObject("ADODB.Recordset")
objRS.StayInSync = False
objRS.open "Select * from t_DataSource", CnSysDB
Set GetList = objRS
Set objRS = Nothing
Exit Function
ErrorHandle:
Set GetList = Nothing
MsgBox Err.Description, vbExclamation
End Function

客户端调用代码：

Private sub test()
Dim dwj As Object
On Error GoTo MyError
Set dwj = CreateObject("对象名", 服务器)
Set rst = dwj.GetList
List1.Clear
Do Until rst.EOF
List1.AddItem rst.Fields("FNumber") & vbTab & rst.Fields("FName")
rst.MoveNext
Loop
rst.Close
Set rst = Nothing
Exit sub
MyError:
Msgbox Err.description
end sub

[activedwj]

在组件管理中相应组件的角色已加入用户，仍不可以.

[ketao_78]

我想想，还有什么情况

[ketao_78]

用户没有添加入com 允许调用的角色