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")

Dim dvDati As DataView = ds_SetMer.Tables("SettoriMerc1").DefaultView
dgvSetMerc.DataSource = dvDati

        MyDB.Close()