.Net中使用带返回值的存储过程(VB代码)

Function GetYFJEDX(ByVal yfje As Decimal) As String
Dim fkjedx As String
Dim myCMD As SqlClient.SqlCommand = New SqlClient.SqlCommand("MoneytoChinese22", sqlconn)

myCMD.CommandType = CommandType.StoredProcedure
myCMD.Parameters.Add(New SqlClient.SqlParameter("@ChangeMoney", SqlDbType.Money))
myCMD.Parameters("@ChangeMoney").Value = yfje
myCMD.Parameters.Add(New SqlClient.SqlParameter("@ReturnDaXie", SqlDbType.VarChar, 50))
myCMD.Parameters("@ReturnDaXie").Direction = ParameterDirection.Output
'sqlAdapter.Fill(sqlDs, "fkjedx_CX")
sqlconn.Open()
myCMD.ExecuteNonQuery()
sqlconn.Close()
fkjedx = myCMD.Parameters("@ReturnDaXie").Value
Return fkjedx
End Function