ASP.Net 调用存储过程，同时返回记录集和输出参数

With cmd
.CommandText = "tsProduct"
.CommandType = CommandType.StoredProcedure
.Connection = cn
.Parameters.Add(New SqlParameter("@pname", SqlDbType.VarChar, 40))
.Parameters.Add(New SqlParameter("@gid", SqlDbType.Int))
.Parameters("@gid").Direction = ParameterDirection.Output
End With

cn.Open()
Dim dr As SqlDataReader = cmd.ExecuteReader()
Dim ds As New DataSet("t1")
ds.Load(dr, LoadOption.OverwriteChanges, "aaa")

'把 DataReader 转换成 DataSet
Label2.Text = ds.Tables(0).TableName
GridView1.DataSource = ds.Tables(0).DefaultView
GridView1.DataBind()
dr.Close() '<---这句很关键，不关掉记录集取不到输出参数的

Label1.Text = "输出参数是：" + cmd.Parameters("@gid").Value.ToString