Dim strProvider As String = "Provider = Microsoft.Jet.OLEDB.4.0;"
         Dim strOrigine As String = "Data Source=" & Application.StartupPath & "\dbRCF.mdb"
        strConnessione = strProvider & strOrigine
        Dim Conn As OleDb.OleDbConnection
        Conn = New OleDb.OleDbConnection(strConnessione)
        Dim cmdClienti_b As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter("SELECT ID, Denominazione,Indirizzo, Cap, Comune, Provincia, Cod_Fisc, Part_Iva, Telefono, Fax FROM Clienti ORDER BY Denominazione", strConnessione)
        Dim DSC As DataSet = New DataSet
        cmdClienti_b.Fill(DSC, "Clienti")
        Dim dvClienti As DataView = DSC.Tables("Clienti").DefaultView
        With Me.DataGridView1
            .DataSource = dvClienti
        End With
        dvClienti = Nothing
        DSC = Nothing
        Conn = Nothing
        If Me.txtNewDoc.Text = "SI" Then
            Me.TextBoxID.Text = ""
        Else
            Exit Sub
        End If