Hola, realmente tu codigo a mi si me funciona, usé este codigo
With DataReport1.Sections("Sección4")
Set .Controls("Image1").Picture = LoadPicture(App.Path & "\Photo0004.bmp")
End With
Solo cambié el nombre de una imagen, por una que yo tengo.
Te recomiendo que verifiques que el control Image realmente se llame Image1 y que realmente esté en la sección 4 del reporte que debe llamarse DataReport1, y que tu imagen Foto.bmp se encuentre en la misma carpeta donde tienes el ejecutable de tu programa.
En conclusión, checa que todas las variables que tienes en el código realmente se llamen así en los objetos.
Espero y te sirva, saludos.