Dim MyDB As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source = " & pathMDb & nameMdbAzienda)
        Dim da_SetMer As OleDbDataAdapter = New OleDbDataAdapter("SELECT * FROM SettoriMerc1", MyDB)
        Dim ds_SetMer As DataSet = New DataSet()
        MyDB.Open()
        da_SetMer.Fill(ds_SetMer, "SettoriMerc1")
        Me.Controls.Add(dgvSetMerc)
        dgvSetMerc.DataSource = ds_SetMer.Tables("SettoriMerc1")
        dgvSetMerc.Refresh()
        MyDB.Close()