Private Sub DatiDataGridView_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles DatiDataGridView.DoubleClick
        Dim var1 As String
        Dim var3 As String

        var1 = DatiDataGridView.CurrentRow.Cells(1).Value.ToString()
        var3 = DatiDataGridView.CurrentRow.Cells(3).Value.ToString()
        Dim strConn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\DbOggetti.mdb"
        Dim result As DialogResult
        result = MessageBox.Show("Vuoi aggiungere questo prodotto al Carrello?", "Aggiungi al Carrello", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button1)
        If result = Windows.Forms.DialogResult.Yes Then
            Dim quantita As New Quantita
            Dim qta As String
            quantita.ShowDialog()
            Debug.Print(quantita.ValoreDigitato)
            qta = quantita.ValoreDigitato
            quantita.Dispose()
            Using ConnEl As New OleDb.OleDbConnection(strConn)
                ConnEl.Open()
                Dim strQuery As String = "INSERT INTO Carrello(Descrizione,Quantita) VALUES('" & var1 & " - " & var3 & "','" & qta & "')"
                Dim cmdModArt As New OleDb.OleDbCommand(strQuery, ConnEl)
                cmdModArt.ExecuteNonQuery()
                ConnEl.Close()
            End Using

        ElseIf result = Windows.Forms.DialogResult.No Then
        End If