Dim fs As New FileStream(Me.OpenFileDialog1.FileName, FileMode.Open)
        Dim br = New BinaryReader(fs)
        Dim DR As System.Data.DataRow
        DR = Me.Mydataset.Tables("Images").NewRow
        DR("Pfad") = Me.OpenFileDialog1.FileName
        DR("Datei") = br.ReadBytes(CInt(br.BaseStream.Length))
        Me.Mydataset.Tables("Images").Rows.Add(DR)
        fs.Close()
        br.Close()
 
        Dim crReportDocument As New CrystalReport1
 
        crReportDocument.SetDataSource(Me.Mydataset)
        With CrystalReportViewer1
            .ReportSource = crReportDocument
            .ShowFirstPage()
            .Zoom(70)
        End With

Ich glaube nicht, dass Zitronenfalter wirklich Zitronen falten