Cnn.Open()
Dim adoCmd As New System.Data.SqlClient.SqlCommand("select_bom", Cnn)
'Dim adoCmd As New Data.OleDB.OleDbCommand("Select_bom", Cnn)
adoCmd.CommandType = System.Data.CommandType.StoredProcedure
adoCmd.Parameters.Add("@number_bom", System.Data.SqlDbType.NVarChar,255)
adoCmd.Parameters("@number_bom").Value ="1232-2-1"
adoCmd.Parameters.Add("@result", System.Data.SqlDbType.Int)
adoCmd.Parameters.Add("@ReturnValue", System.Data.SqlDbType.Int).Direction = System.Data.ParameterDirection.ReturnValue
adoCmd.Parameters("@result").Direction = System.Data.ParameterDirection.Output
adoCmd.ExecuteNonQuery()
output.show(adoCmd.Parameters("@ReturnValue").Value.ToString())
output.show(adoCmd.Parameters("@result").Value.ToString())