Nextrecordset 是什么类型，类模块紧急求助

Question

这样的：
我自己写了个类，Private adors As ADODB.RecordSet
Private mvarrs As ADODB.RecordSet   'Public adocn As Connection      'cnPublic Sub opensql(sqlstring As String)
On Error GoTo err1:
    
    Set adors = New ADODB.RecordSet
    adors.CursorLocation = adUseClient '使用客户端游标
    adors.Open sqlstring, adocn, adOpenKeyset, adLockBatchOptimistic
    Set mvarrs = adors    Exit Sub
err1:    MsgBox err.Description
End Sub
若干属性省略。目的是用这个类代替recordset。
但是现在遇到一个问题，就是要用到recordset的 Nextrecordset
语句如下：Public Property Get Nextrecordset() As  '这里不知道写什么类型了 
    
    Set Nextrecordset = adors.Nextrecordset
End Property如果不用这个类型，只要
dim  rs as recordset
set rs= new recordset
rs.open。省略。
set rs=rs.nextrecordset就达到效果了求高手指点

Answer 1

老师，你就帮我一下吧，可能是我描述得不清楚
我这样做，原因是因为很多模块都要用到recordset，而且呢，很多常用属性都已经有了，给省了很多代码，
最关键的是。以前程序都用的这个新类的属性，如果用回去，，，工作量太大了，，，

Answer 2

这是目前的代码：
Public Property Let Nextrecordset(ByVal Nextrecordset)
  adors.Nextrecordset = Nextrecordset
End PropertyPublic Property Get Nextrecordset() As RecordSet'这里的类型，，一直不知道用什么好，
  Set Nextrecordset = adors.Nextrecordset
End Property上面的类型，
用RecordSet的时候，执行Set Nextrecordset = adors.Nextrecordset句不会报错，但是过了后，还是会报错：类型不匹配、
用object的时候，执行就报错：类型不匹配

Answer 3

用另外的方法解决了，，，没有直接取next，换成取到记录集后再next//、