VB操作数据库的存储过程，设置输出参数代码看不明白，请指教！

[hwbdabao1234]

Dim cnn As SqlConnection = New SqlConnection("server=PC-201504020821;database=SHOYO;uid=sa;pwd=1234;")
cnn.Open()
Dim cm As New SqlDataAdapter()
cm.SelectCommand = New SqlCommand()
cm.SelectCommand.Connection = cnn
cm.SelectCommand.CommandText = "Add_dingdan" ‘’存储过程为："Add_dingdan"
cm.SelectCommand.CommandType = CommandType.StoredProcedure
cm.SelectCommand.Parameters.AddWithValue("@name1", TextBox1.Text) ''添加输入参数

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''以下3行是什么意思''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim parOutput '类型是什么
parOutput = cm.SelectCommand.Parameters.AddWithValue("@result1", SqlDbType.Int)
parOutput.Direction = ParameterDirection.Output '参数类型为Output
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
cm.SelectCommand.ExecuteNonQuery() ''
MsgBox(cm.SelectCommand.Parameters("@result1").Value) ‘’显示返回值

问题：请解析一下上面3行代码的意思，有没有更简单的其他方法！

[赵4老师]

建议先学习带输出参数的存储过程怎么写和怎么在查询分析器中调用看输出参数的返回值。