ecco l'intero codice:
Try
Me.Connord.Open()
Dim cmd As New SqlCommand("up_AddRow", Me.Connord)
Dim param As SqlParameter
cmd.CommandType = CommandType.StoredProcedure
cmd.Parameters.Add("@SpA_Order", Me.Txtordspa.Text.Trim)
cmd.Parameters.Add("@Sud_Order", Me.Txtordsud.Text.Trim)
cmd.Parameters.Add("@NRPL", Me.Txtnrpl.Text.Trim)
param = cmd.Parameters.Add("outp", SqlDbType.Int)
param.Direction = ParameterDirection.ReturnValue
Dim read As SqlDataReader
Me.Labcheck.Visible = True
Me.Labcheck.Text = cmd.Parameters("outp").Value
read = cmd.ExecuteReader(CommandBehavior.CloseConnection)
Me.Txtnrpl.Text = ""
Catch ex As Exception
End Try
che ne dici?