存储过程中返回多个记录集,在客户端怎么调用

存储过程中返回多个记录集,在客户端如何调用?
Set   cmd.ActiveConnection   =   conn
        cmd.CommandText   =   "sp_GS_AA "
        cmd.CommandType   =   adCmdStoredProc
       
        set   rs=         cmd.Execute
        以上是返回一个记录集的写法,如果返回多个记录集呢?该如何写,在线等待

------解决方案--------------------
dim re as new adodb.recordset
set re=rs.nextrecordset '下一个记录机
------解决方案--------------------
什么都不用改
几个记录合在一个记录对象中,
NextRecordset是下个记录