activereport 化化

Private Sub Detail_Format()
Dim k As String

  k = DataControl1.Recordset.Fields("kh").Value
If Len(Dir(App.Path & "\pic\" & k & ".jpg")) = "0" Then
    Set pic.Picture = LoadPicture(App.Path & "\pic\05.jpg")

Else
   Set pic.Picture = LoadPicture(App.Path & "\pic\" & k & ".jpg")

End If
End Sub考号与照片对应,但是每次打开的时候太慢,要全部加载完,才会快!请问如何修改,能使他打开时快一些!(activereport中)