Dim strProvider_c As String = "Provider = Microsoft.Jet.OLEDB.4.0;"
        Dim NomePerc As String = CStr(Me.txtNomePerc.Text)
        Dim strOrigine_c As String = "Data Source=" & Application.StartupPath & "\dbTEMP.mdb"
        Dim strConnessione2 As String = strProvider_c & strOrigine_c
        Dim Conn2 As OleDb.OleDbConnection
        Conn2 = New OleDb.OleDbConnection(strConnessione2)
        Dim cmdScad As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter("SELECT * FROM ScadCli WHERE IdCli = " & IDCLIENTE & " AND [SALDO] > 0", strConnessione2)
        Dim DSSCAD As DataSet = New DataSet
        cmdScad.Fill(DSSCAD, "ScadCli")
        Dim dvArtScad As DataView = DSSCAD.Tables("ScadCli").DefaultView
        With Me.dgwScad
            .DataSource = dvArtScad
        End With
        dvArtScad = Nothing
        DSSCAD = Nothing
        Conn2 = Nothing