Dim conn As New SqlClient.SqlConnection(Session("connessione"))
        conn.Open()
        Dim sql As String = "SELECT * FROM viewCertAss where (idAppendice= " & Request.QueryString("id") & ")"

        Dim da As New SqlClient.SqlDataAdapter(sql, conn)
        Dim dt As New DataTable("certifAss")
        da.Fill(dt)

        Dim myReport As New CrystalDecisions.CrystalReports.Engine.ReportDocument
        myReport.Load(Server.MapPath("provaApp.rpt"))

        'imposto il source dei dati per il mio documento rpt
        myReport.SetDataSource(dt)

        CrystalReportViewer1.HasExportButton = True
        CrystalReportViewer1.HasCrystalLogo = False
        CrystalReportViewer1.HasPrintButton = True
        CrystalReportViewer1.HasSearchButton = False
        CrystalReportViewer1.HasToggleGroupTreeButton = False

        CrystalReportViewer1.ReportSource = myReport