'FASE 1:
  Dim strOrigine As String = "Data Source=" & Application.StartupPath & "\dbDATI.accdb"
        'MsgBox(strProvider & strOrigine)
        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)
'FASE 2:
'Dim RepPath As String = Application.StartupPath & "\Tuoreport.rpt"
        Dim Report As New CrystalDecisions.CrystalReports.Engine.ReportDocument()
        Report.Load(RepPath)
'FASE 3:
        'Alimentazione del report con le tabelle caricate'
        Report.Database.Tables("Articoli").SetDataSource(objTable)
FASE 4:
Me.CrystalReportViewer1.ReportSource = Report