VB6对象变量或未设置块变量

Question

Function Test() As Boolean
  Dim objT As New Testing.Test
  objT.SetDataSource .....
  Test = objT.ValueExistInTable(CLng(1))
  Set objT = Nothing
End Function

对象变量或未设置块变量

ValueExistInTable位于不同的dll中。当我直接从网页调用ValueExistInTable时，它正确地返回一个布尔值。

我不知道我哪里出错了。任何帮助将不胜感激。