[CODE]
        Dim strConnessione As String = My.Settings.DbInConnectionString
        Dim Conn As SqlConnection
        Conn = New SqlConnection(strConnessione)
        'Carica la tabella articoli per il report'
        Dim cmdArt As SqlDataAdapter = New SqlDataAdapter("SELECT * FROM TB_AnagraficaDipendenti", strConnessione)
        Dim objTable As New DataTable()
        cmdArt.Fill(objTable)
        Dim RepPath As String = Application.StartupPath & "\IOVisitatori.rpt"
        Dim Report As New CrystalDecisions.CrystalReports.Engine.ReportDocument()
        Report.Load(RepPath)
        'Alimentazione del report con le tabelle caricate'
        Report.Database.Tables("TB_AnagraficaDipendenti").SetDataSource(objTable)
        Me.rptViewer.ReportSource = Report
    End Sub
[/CODE]