如何获取执行的存储过程即返回记录集又返回记录集的行数？ ---急救！

问题：如何获取执行的存储过程即返回记录集又返回记录集的行数？ 存储过程如下：
CREATE  PROCEDURE select_view
@maxclass tinyint,
@minclass tinyint,
@recordnum int OUTPUT
AS
       select *        
       from test       
       where maxclassnum =  @minclass and  maxclassnum = @maxclass
       
       select @recordnum = @@ROWCOUNT       
        if @recordnum = 0
              return 0
       else         
              return 1
GO
 VB执行代码：
    Set g_comData.ActiveConnection = g_conData
    g_comData.CommandText = "select_view"
    g_comData.CommandType = adCmdStoredProc
    
    '// 设置参数---返回值
    Set g_parData = g_comData.CreateParameter("RetVal", adInteger, adParamReturnValue, 4)
    g_comData.Parameters.Append g_parData    '// 设置参数---输入值
    Set g_parData = g_comData.CreateParameter("maxclass", adInteger, adParamInput, 3, 11)
    g_comData.Parameters.Append g_parData    Set g_parData = g_comData.CreateParameter("minclass", adInteger, adParamInput, 3, 1)
    g_comData.Parameters.Append g_parData
    
    '// 设置参数---输出值
    Set g_parData = g_comData.CreateParameter("recordnum", adInteger, adParamOutput)
    g_comData.Parameters.Append g_parData
    
    '// 执行过程
    Set g_resData = g_comData.Execute()
    g_intRetRecordNum = g_comData.Parameters("recordnum").Value
    
    这样获取的g_intRetRecordNum始终都返回0,或是通过g_resData.RecordCount始终返回-1。
请各位大侠求助，谢谢！