รบกวนท่านผู้รู้ช่วยแก้ไขโค้ดแสดงรูปให้หน่อย ลอกเขามาอีกทีครับ เฉพาะบางส่วน

Private Sub Photo_AfterUpdate()
    ' After selecting an image for the employee, display it.
    On Error Resume Next
        showErrorMessage
        showImageFrame
        If (IsRelative(Me!ImagePath) = True) Then
            Me![ImageFrame].Picture = path & Me![ImagePath]
        Else
            Me![ImageFrame].Picture = Me![ImagePath]
        End If
End Sub
=======================
Private Sub Form_AfterUpdate()
    ' Requery the ReportsTo combo box after a record has been changed.
    ' Then, either show the errormsg label if no file name exists for
    ' the employee record or display the image if there is a file name that
    ' exists.
    Rem Me!ReportsTo.Requery
    On Error Resume Next
        showErrorMessage
        showImageFrame
        If (IsRelative(Me!ImagePath) = True) Then
            Me![ImageFrame].Picture = path & Me![ImagePath]
        Else
            Me![ImageFrame].Picture = Me![ImagePath]
        End If
End Sub
=======================
Private Sub ImagePath_AfterUpdate()
    ' After selecting an image for the employee, display it.
    On Error Resume Next
        showErrorMessage
        showImageFrame
        If (IsRelative(Me!ImagePath) = True) Then
            Me![ImageFrame].Picture = path & Me![ImagePath]
        Else
            Me![ImageFrame].Picture = Me![ImagePath]
        End If
End Sub
======================
Private Sub Form_Current()
    ' Display the picture for the current employee record if the image
    ' exists. If the file name no longer exists or the file name was blank
    ' for the current employee, set the errormsg label caption to the
    ' appropriate message.
    Dim res As Boolean
    Dim fName As String
    
    path = CurrentProject.path
    On Error Resume Next
        errormsg.Visible = False
        If Not IsNull(Me!Photo) Then
            res = IsRelative(Me!Photo)
            fName = Me![ImagePath]
            If (res = True) Then
               fName = path & "\" & fName
            End If
            
            Me![ImageFrame].Picture = fName
            showImageFrame
            Me.PaintPalette = Me![ImageFrame].ObjectPalette
            If (Me![ImageFrame].Picture <> fName) Then
               hideImageFrame
               errormsg.Caption = "Selecphoto"
               errormsg.Visible = True
            End If
        Else
            hideImageFrame
            errormsg.Caption = "Photo View"
            errormsg.Visible = True
        End If
End Sub

ปัญหาคือว่าเวลาย้ายไปใช้เครื่องอื่น แล้วมันยังถามหา Path จากเครื่องเดิมอยู่ ทุกครั้งที่เริ่มเปิดฟอร์มครับ แต่ก็ยังเปิดใช้งานต่อไปได้
ไม่ทราบว่าจะแก้ไขอย่างไรไม่ให้มันจำ Path จากเครื่องเดิมครับท่าน