Dim myadapter As New OleDb.OleDbDataAdapter
        Dim mydataset2 As New DataSet

        mydataset.Clear()

        myadapter.SelectCommand = New OleDb.OleDbCommand
        myadapter.SelectCommand.Connection = myconnection

        myadapter.SelectCommand.CommandText = "SELECT First(nomi.nome) AS Nome, First(Rapporti.INDX) AS INDX, Rapporti.Valore FROM Rapporti INNER JOIN (sostanze INNER JOIN nomi ON sostanze.Chiave = nomi.chiave) ON Rapporti.INDX = sostanze.INDX GROUP BY Rapporti.Valore, Rapporti.Nr_Protocollo HAVING(((Rapporti.Nr_Protocollo) = " & txtprotvar & "))ORDER BY First(nomi.nome);"

        myadapter.SelectCommand.CommandType = CommandType.Text

        myconnection.Open()

        myadapter.Fill(mydataset2, "sostanze")

        myconnection.Close()
        myconnection.Dispose()
        mycommand.Dispose()

        Dim dgvcolorecelle As New DataGridViewCellStyle()
        dgvcolorecelle.BackColor = Color.WhiteSmoke
        Form1.DGV2.AlternatingRowsDefaultCellStyle = dgvcolorecelle

        Form1.DGV2.AutoGenerateColumns = True
        'Form1.DGV2.AllowUserToDeleteRows = False

        Form1.DGV2.DataSource = mydataset2

        Form1.DGV2.DataMember = "sostanze"
        Form1.DGV2.Columns("valore").ReadOnly = False
        Form1.DGV2.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill