Dim strProvider As String = "Provider = Microsoft.Jet.OLEDB.4.0;"
                Dim NomePerc As String = CStr(Me.txtNomePerc.Text)
                Dim strOrigine As String = "Data Source=" & Application.StartupPath & "\dbTemp\dbTEMP.mdb"
                Dim strConnessione As String = strProvider & strOrigine
                Dim Conn As OleDb.OleDbConnection
                Conn = New OleDb.OleDbConnection(strConnessione)
                'Carica la tabella articoli per il report'
                Dim cmdArt As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter("SELECT * FROM Articoli", strConnessione)
                Dim objTable As New DataTable()
                cmdArt.Fill(objTable)
                'Carica la tabella cliente per il report'
                Dim cmdCliente As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter("SELECT * FROM Cliente", strConnessione)

                Dim objTableScadImp As New DataTable()
                cmdScadImp.Fill(objTableScadImp)
                'Carica la tabella trasporto per il report'
                Dim cmdTrasp As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter("SELECT * FROM Trasporto", strConnessione)
                Dim objTableTrasp As New DataTable()
                cmdTrasp.Fill(objTableTrasp)
                'Carica la tabella Note per il report'
                Dim cmdNote As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter("SELECT * FROM NoteDoc", strConnessione)
                Dim objTableNote As New DataTable()
                cmdNote.Fill(objTableNote)



                Dim RepPath As String = Application.StartupPath & "\dbTemp\FT2.rpt"
                Dim Report As New CrystalDecisions.CrystalReports.Engine.ReportDocument()
                'Report.Refresh()
                Report.Load(RepPath)
                Report.SetDataSource(objTable)
                'Alimentazione del report con le tabelle caricate'
                Report.Database.Tables("Articoli").SetDataSource(objTable)
                Report.Database.Tables("Cliente").SetDataSource(objTableCliente)
                Report.Database.Tables("ScadImp").SetDataSource(objTableScadImp)
                Report.Database.Tables("Trasporto").SetDataSource(objTableTrasp)
                Report.Database.Tables("NoteDoc").SetDataSource(objTableNote)
                Me.CrystalReportViewer2.ReportSource = Report