有谁用过这种方法调用DLL？

[天恩软件]

有谁用过下面这种方法调用DLL？
'''''''''''''''''''''''''''''''''''''''''
　　Dim oRds　As New RDS.DataSpace
　　Dim oSrv　As Object
　　Dim sData As String

　　Set oSrv = oRds.CreateObject("GetDataTest.clsInfo", "http://hostname")
　　sData = oSrv.GetData()
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
本人调用 sData = oSrv.GetData()时发生异常。0x80070005，“拒绝访问”。

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
DLL函数如下：
Public Function GetData() As String
GetData = "0123abc"
End Function

[Saitor]

I DON'T KNOW ALSO , UP UP UP