方法picture作用于对象_image时失败

我在窗体加入image控件，控件名称Image18，并通过字段调用

大部分正常，但时不时常出现“方法picture作用于对象_image时失败”  或有时出现：“正在导入对话框”且无法取消

 原代码如下：

Private Sub 彩图号_GotFocus()

On Error Resume Next

If Me.NewRecord = False Then

    If Dir(Forms("63-1推广图信息收集")![彩图目录] & Left(Me![彩图号], 3) & "\" & Right(Me![彩图号], Len(Me![彩图号]) - 3) & ".jpg") <> "" Then

        Forms("63-1推广图信息收集")![Image18].Picture = Forms("63-1推广图信息收集")![彩图目录] & Left(Me![彩图号], 3) & "\" & Right(Me![彩图号], Len(Me![彩图号]) - 3) & ".jpg"

    Else

        Forms("63-1推广图信息收集")![Image18].Picture = ""

    End If

End If

End Sub

请高手提点