关于VB for SQL Server2000开发的几个问题？？？？

下面是一个例子：
Private cmmObj As New ADODB.Command           '---------定义ADODB.Command 对象private Function lCDMastest(ByVal slabno As String) As Long      Dim rscount As New ADODB.Recordset
    Dim prmRetVal As ADODB.Parameter       '--------定义ADODB参数
    Dim prmNo As ADODB.Parameter
On Error GoTo EditDbErr
   
   'Create the Command and add the parameters
   '***< user can change below to correct param >***
   '****** main record *****
   With cmmObj
      .ActiveConnection = db
      .CommandType = adCmdStoredProc
      .CommandText = "ado_Mastest_No"     '----存储过程名
      
      Set prmRetVal = .CreateParameter("Param0", adInteger, adParamReturnValue, 0)
      Set prmNo = .CreateParameter("Param1", adChar, adParamInput, 8)    '-----设置参数的类型
   
      .Parameters.Append prmRetVal
      .Parameters.Append prmNo          '-----提交参数
              
      .Parameters(1).Value = slabno          '---------给参数赋值
      
      Set rscount = .Execute               '--------执行存储过程
      
      lCDMastest = rscount.RecordCount
    End With
    Set cmmObj = Nothing
    Exit Function