Help: Displaying Pictures In A Form

To display images on a form (Access 2003) I used the same code of the Northwind database sample (Form Emplyees).

when changing the Picture's location it returns a bug in the code (Couldn' open ...the file), or the ErrorMessage Label should have the value: "File not Found".

Here is the code:

Private Sub Form_Current()
Dim res As Boolean
Dim fName As String
Path = CurrentProject.Path
On Error Resume Next
ErrorMsg.Visible = False
If Not IsNull(Me![ProductPicture]) Then
res = IsRelative(Me![ProductPicture])
fName = Me![ImagePath]
If (res = True) Then
fName = Path & "" & fName
End If
Debug.Print "fName: " & fName
Me![ImageFrame].Picture = fName
showImageFrame
Me.PaintPalette = Me![ImageFrame].ObjectPalette
If (Me![ImageFrame].Picture <> fName) Then
hideImageFrame
ErrorMsg.Caption = "File not Found"
ErrorMsg.Visible = True
End If
Else
hideImageFrame
ErrorMsg.Caption = "Click on Add/Edit to add the Product Picture"
ErrorMsg.Visible = True
End If

End Sub

Function IsRelative(fName As String) As Boolean
IsRelative = (InStr(1, fName, ":") = 0) And (InStr(1, fName, "") = 0)
End Function
#