IMAGEM DINAMICA CRYSTAL REPORT 8

//Cria uma nova instância do dataset
Dataset2 dtsImagem = new Dataset2();
//Cria uma nova linha no dataset
Dataset2.NB_IMAGEMRow dr = dtsImagem.NB_IMAGEM.NewNB_IMAGEMRow();
//Carrega o arquivo com a imagem
FileStream fs = new FileStream([Ô]c:\    emp\\img.jpg[Ô], FileMode.Open, FileAccess.Read);
//transforma para binário
BinaryReader br = new BinaryReader(fs);
dr.IMAGEM = br.ReadBytes(Convert.ToInt32(br.BaseStream.Length));
//Add a imagem ao DataSet
dtsImagem.NB_IMAGEM.Rows.Add(dr);

//Cria um objeto do relatório
rptAcabamento Relatorio= new rptAcabamento();                    

//Define a fonte de dados do relatório
Relatorio.OpenSubreport([Ô]rptImagem4.rpt[Ô]).SetDataSource(dtsImagem);

Option Explicit
Dim FSO As FileSystemObject
Dim CaminhoArq As String

Private Sub DetailSection1_Format(ByVal pFormattingInfo As Object)
    Set FSO = New FileSystemObject
    CaminhoArq = App.path & [Ô]\Fotos\[Ô] & FUNCC.Value & [Ô].jpg[Ô]
    
    If FSO.FileExists(CaminhoArq) Then
        Set Foto.FormattedPicture = LoadPicture(CaminhoArq)
    
    Else
        Set Foto.FormattedPicture = LoadPicture(App.path & [Ô]\Fotos\000000.jpg[Ô])
    End If
    Set FSO = Nothing
End Sub