VB调用ORACLE存储过程返回多记录集

     一直没有写原创的习惯，每次都是从别的贴子拷贝过来。实在是不好意思。最近想把自己做的一个项目中所解决的问题和大家共享一下。希望对遇见这种情况的朋友有所帮助。
      程序中要用到VB调用ORACLE的存储过程，存储过程返回的是多记录集。要是在C#中这种情况很好解决。但是到了VB中。情况就不一样了。在CSDN上也查了。都没有人说出完整的解决的解决方案。经过几天的摸索。终于搞定。下面是存储过程和相应的VB调用代码。
      存储过程如下：大家只需关心返回的记录集

 p_Report_Yysc_Zyq;  

          VB调用的代码如下：用下面的两种方式都可以调用：

End Function

End Function

最后还要强调一点的时候，在写连接字符串的时候。务必如下。否则在用VB的NEXTRECORDSET会调用不成功。
strCnt = "Provider=OraOLEDB.Oracle.1;Password=1;Persist Security Info=True;User ID=1;Data Source=ORA92;PLSQLRSet=1"