Dim MyDB As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source = " & pathMDb & nameMdbAzienda)
            MyDB.Open()
            ' Comando SQL per il recupero dei record.
            Dim strSql As String = "DELETE * FROM SettoriMerc1 WHERE SettoreMerc = '" & SettoreMercTextBox.Text & "';"
            Dim cmd = New OleDbCommand(strSql, MyDB)
            Dim tb_SetMer As OleDbDataReader = cmd.ExecuteReader()
            panSettori.Visible = False
            dgvSetMerc.Enabled = True