VB6“无效使用属性”错误，代码似乎很好

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是一个对象。