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