VB6 "Invalid use of property"错误，代码看起来没问题

Question

我遇到了一个非常奇怪的问题。首先是代码。

Private Function ProcessRecord(ByVal rsDocs As ADODB.Recordset) As Variant

   Dim rsTemp As ADODB.Recordset
   rsTemp = rsDocs
   rsDocs = RemoveDuplicateDocs(rsTemp)

Exit Function

错误发生在函数的第二行，其中 rsTemp 设置为等于 rsDocs。它说:“编译错误:属性使用无效”。我在其他地方查找过有关此错误的信息，所有报告都是人们忘记等号或错误地将“Set”命令添加到代码行开头的情况。这个错误对我来说没有意义，因为它之前编译得很好，而且我对此项目所做的更改甚至不在引发错误的类中。这里的代码与之前的代码相同。有没有人见过这样的错误，因为似乎没有充分的理由而弹出？谢谢!

Answer 1

您需要使用

set rsTemp = rsDocs

因为 rsTemp 是一个对象。