关于配合存储过程使用非连接更新数据库

更新后只能获取最后一次执行存储过程返回的信息，如何得到以前的返回信息
代码如下:
Sub CD_Delete(sender as object,e as eventargs)
  If CDDataGrid.Items.Count<=0 Then '====是否有检出纪录，没有，不进行操作
     S_ResultInfo.style("color")="red"
     S_ResultInfo.Text="请先检索出您需要得纪录!"
  Else
    Dim i As Integer
    Dim CDData_Con As New SQLconnection(ConfigurationSettings.AppSettings("CdData_SQLConStr"))
    Dim SqlParam As SqlParameter
    Dim CDData_DAdapter As New SqlDataAdapter("CD_Search",CDData_Con)'===CD_Search是用来检索的存储过程
    CDData_DAdapter.SelectCommand.CommandType=CommandType.StoredProcedure
    SqlParam=CDData_DAdapter.SelectCommand.Parameters.Add(New SqlParameter("@keyword",SqlDbType.varchar))
    SqlParam.Direction=ParameterDirection.Input
    SqlParam.Value=ViewState("KeyWord")
    SqlParam=CDData_DAdapter.SelectCommand.Parameters.Add(New SqlParameter("@method",SqlDbType.varchar))
    SqlParam.Direction=ParameterDirection.Input
    SqlParam.Value=ViewState("Method")
    Dim CDData_DSet As New DataSet()
    CDData_DAdapter.Fill(CDData_DSet,"cddata")
    Dim CDData_Table As DataTable=CDData_DSet.Tables("cddata")
    Dim BookCtrlNo As String
    Dim CDData_Row As DataRow
    Try
      CDData_Con.Open
      For i = 0 To CDDataGrid.Items.Count - 1
          Dim Del_CheckBox As CheckBox=CDDataGrid.Items(i).FindControl("Del_CheckBox")
          If Del_CheckBox.Checked Then '===判断，只删除CHECKBOX勾选的纪录
             BookCtrlNo=CDDataGrid.DataKeys(i).ToString()
             For Each CDData_Row in CDData_Table.Rows
                 IF CDData_Row.RowState=DataRowState.Unchanged Then
                    IF CDData_Row("书目控制号")=BookCtrlNo Then
                       CDData_Row.Delete()
                    End IF
                 End If
             Next
          End If
      Next i
      CDData_DAdapter.DeleteCommand=New SQLCommand("CD_Delete",CDData_Con) '===CD_Delete为删除纪录用的存储过程
      CDData_DAdapter.DeleteCommand.CommandType=CommandType.StoredProcedure
      SqlParam=CDData_DAdapter.DeleteCommand.Parameters.Add(New SqlParameter("@bookctrlno",SqlDbType.varchar))
      SqlParam.Direction=ParameterDirection.Input
      SqlParam.SourceColumn="书目控制号"
      SqlParam=CDData_DAdapter.DeleteCommand.Parameters.Add(New SqlParameter("@result",SqlDbType.int))
      SqlParam.Direction=ParameterDirection.Output
      CDData_DAdapter.Update(CDData_DSet,"cddata")
      CDData_Con.Close()
    Catch SqlConnError As Exception
      Throw SqlConnError
    End Try
    Dim Result As Integer=CDData_DAdapter.DeleteCommand.Parameters("@result").value '===获取存储过程的返回参数，关键问题，如何获取所有的返回参数，我只能获取最后一次执行存储过程返回的参数
    Select Case Result
           Case 1:D_ResultInfo.Text="删除成功!"
           Case 0:D_ResultInfo.Text="出现错误,没有进行任何操作!"
           Case -1:D_ResultInfo.Text="该纪录不存在!"
    End Select
  End IF
  BindDGrid(ViewState("Method"),ViewState("KeyWord")) '==重新绑定数据，显示删除后的结果
End Sub