Private Sub CaricaReport()
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.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 objTableCliente As New DataTable()
        cmdCliente.Fill(objTableCliente)
        'Carica la tabella scadenze/importi per il report'
        Dim cmdScadImp As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter("SELECT * FROM ScadImp", 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)
        'Carica la tabella Iva per il report'
        Dim cmdIva As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter("SELECT * FROM Tot_Iva", strConnessione)
        Dim objTableIva As New DataTable()
        cmdIva.Fill(objTableIva)
        'Carica la tabella Totale a pagare per il report'
        Dim cmdPagare As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter("SELECT * FROM Pagare", strConnessione)
        Dim objTablePagare As New DataTable()
        cmdPagare.Fill(objTablePagare)
        'carica la tabella documenti e la inserisce nel report'
        Dim cmdDoc As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter("SELECT * FROM Documenti", strConnessione)
        Dim objTableDoc As New DataTable()
        cmdDoc.Fill(objTableDoc)

        Dim RepPath As String = Application.StartupPath & "\FT2.rpt"
        Dim Report As New CrystalDecisions.CrystalReports.Engine.ReportDocument()
        Report.Load(RepPath)
        'Alimentazione del report con le tabelle caricate'
        Report.Database.Tables("Articoli").SetDataSource(objTable)
        Report.Database.Tables("Cliente").SetDataSource(objTableCliente)
        Report.Database.Tables("Documenti").SetDataSource(objTableDoc)
        Report.Database.Tables("Trasporto").SetDataSource(objTableTrasp)
        Report.Database.Tables("NoteDoc").SetDataSource(objTableNote)
        Report.OpenSubreport("PagTrasp").SetDataSource(objTableTrasp)
        Report.OpenSubreport("Scadenze").SetDataSource(objTableScadImp)
        Report.OpenSubreport("Iva").SetDataSource(objTableIva)
        Me.CrystalReportViewer2.ReportSource = ReportEnd Sub