Private Sub InseriscoprodottoInGriglia()
        Try
        Dim QtaVecchia As String = "0"
        Dim SubTotale As Decimal = 0
        Dim MyConnection As SqlConnection
        Dim MyCommand As SqlCommand
        Dim MyStrConn As String
        Dim SQLstring As String
        Dim MyDataReader As SqlDataReader
        'scrittura dell'istruzione SQL
        SQLstring = "SELECT Articoli.ID_Articolo, Articoli.R_CodiceBarreFornitore, Articoli.R_DescrizionePrincipale,ListiniPrezzi.R_Prezzo,TabellaCodiciIva.R_AliquotaIva, Articoli.R_UnitaMisura " & _
                    "FROM Articoli INNER JOIN TabellaCodiciIva ON Articoli.ID_CodiceIva = TabellaCodiciIva.ID_CodiceIva INNER JOIN ListiniPrezzi ON Articoli.ID_Articolo = ListiniPrezzi.ID_Articolo " & _
                    "WHERE Articoli.ID_Articolo=" & LabelIdArtdaInserire.Text & ""
        'Creazione esplicita delcomando
        MyCommand = New SqlCommand(SQLstring)
        'creazione esplicita della connessione
        MyConnection = New SqlConnection()
        'composizione della stringa di connessione
        MyStrConn = My.Settings.WeaGestDBConnectionString & "xxxxxxxx"
        MyConnection.ConnectionString = MyStrConn
        'apertura della connessione
        MyConnection.Open()
        'passaggio della connessione attiva all'oggetto command
        MyCommand.Connection = MyConnection
        'assegnazioni del comando SQL
        MyDataReader = MyCommand.ExecuteReader()
        MyDataReader.Read()
        '*********Tipo
        Dim IdArticolo As Integer = (MyDataReader.Item("ID_Articolo")).ToString
        Dim CodBarre As String = (MyDataReader.Item("R_CodiceBarreFornitore")).ToString
        Dim DescrizioneArt As String = (MyDataReader.Item("R_DescrizionePrincipale")).ToString
        Dim Prezzo As String = (MyDataReader.Item("R_Prezzo")).ToString
        Dim Aliquota As String = (MyDataReader.Item("R_AliquotaIva")).ToString
        Dim UnMisura As String = (MyDataReader.Item("R_UnitaMisura")).ToString
        MyDataReader.Close()
        MyConnection.Close()
        '***********************************Aggiungo campi nella datagridview '***************************
        Dim contarighe As Integer = DataGridViewDettaglio.RowCount
        If contarighe = 0 Then
            DataGridViewDettaglio.Rows.Add(IdArticolo, CodBarre, DescrizioneArt, UnMisura, "1", Prezzo, Aliquota)
            'FA IL CALCOLO DEL PREZZO * QTA
            RicalcoloSubTotalerighe()
        ElseIf contarighe > 0 Then
            If VerificaPresenzaProdottiIngrid() = True Then
                For x As Integer = 0 To contarighe - 1
                    If IdArticolo = DataGridViewDettaglio.Rows(x).Cells("ID_Articolo").Value.ToString Then
                        QtaVecchia = DataGridViewDettaglio.Rows(x).Cells("R_Qta").Value.ToString 'prelevo la quantità esistente prima della variazione
                        DataGridViewDettaglio.Rows(x).Cells("R_Qta").Value = (QtaVecchia + 1)
                        SubTotale = DataGridViewDettaglio.Rows(x).Cells("R_Prezzo").Value * DataGridViewDettaglio.Rows(x).Cells("R_Qta").Value
                        DataGridViewDettaglio.Rows(x).Cells("R_SubtotaleRiga").Value = SubTotale
                    End If
                Next
            ElseIf VerificaPresenzaProdottiIngrid() = False Then
                DataGridViewDettaglio.Rows.Add(IdArticolo, CodBarre, DescrizioneArt, UnMisura, "1", Prezzo, Aliquota)
                RicalcoloSubTotalerighe()
            End If
        End If