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)
 Dim RepPath As String = Application.StartupPath & "\tuoreport.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)

            Me.CrystalReportViewer1.ReportSource = Report