Dim NomePerc As String = CStr(Me.txtNomePerc.Text)
        Dim strProvider_B As String = "Provider = Microsoft.Jet.OLEDB.4.0;"
        Dim strOrigine_B As String = "Data Source=" & NomePerc & "\dbMag.mdb"
        Dim strConnessione As String = strProvider_B & strOrigine_B
        Dim Conn As OleDb.OleDbConnection
        Conn = New OleDb.OleDbConnection(strConnessione)
        Dim cmdArticoli As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter("SELECT * FROM Artico ORDER BY Descrizione", strConnessione)
        Dim DSArticoli As DataSet = New DataSet
        DSArticoli.Clear()
        cmdArticoli.Fill(DSArticoli, "Artico")
        Dim dvClienti As DataView = DSArticoli.Tables("Artico").DefaultView
        With Me.DataGridView1
            .DataSource = dvClienti
            .Columns(0).Width = 100
            .Columns(1).Width = 100
            .Columns(2).Width = 270
            .Columns(3).Width = 170
            .Columns(4).Width = 65
        End With