Dim adptSel1 As New OleDbDataAdapter("SELECT * FROM ope_cpp WHERE elemento = '0202008P_'", cnx)        
        Dim dtstPrin As New DataSet
        Dim tblSel1 As New DataTable
        cnx.Open()
        adptSel1.Fill(dtstPrin, "Tbl1")
        cnx.Close()        
        Dim Col1 As DataColumn = New DataColumn
        Dim Col2 As DataColumn = New DataColumn
        With Col1
            .ColumnName = "fotoConvEle"
            .DataType = System.Type.GetType("System.Byte[]")
        End With
        dtstPrin.Tables(0).Columns.Add(Col1)        
        For Each i As DataRow In dtstPrin.Tables(0).Rows
            Dim fsEle As New FileStream(Mod_Var.rootF & "\" & i.Item("elemento") & "\foto\" & i.Item("url_fot").ToString, FileMode.Open)
            Dim brEle As New BinaryReader(fsEle)
            i.Item("fotoConvEle") = brEle.ReadBytes(brEle.BaseStream.Length)
            brEle = Nothing
            fsEle.Close()
            fsEle = Nothing            
        Next        
        dtst1.WriteXml(Server.MapPath("./app_data/report.xml"))
        Dim rpt As New CrystalDecisions.CrystalReports.Engine.ReportDocument
        rpt.Load(Server.MapPath("./crystalreport.rpt"))
        rpt.Database.Tables("preview").SetDataSource("dtst1")
        CrystalReportViewer1.ReportSource = rpt
        CrystalReportViewer1.DataBind()