预览报表图片

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
On Error GoTo ab
Image.Picture = Me.pic.Value
GoTo ac
ab:
Image.Picture = "P:\Picture\R\" + "Err.JPG"
ac:
End Sub
为什么用以上代码预览图片时，如果图片多或大，都不能显示出来，有时显示内存不足，不能进行预览，各位老师有什么方法改进一下吗？谢谢！