Set images path in access

Function setImagePath()
    Dim strImagePath As String
    On Error GoTo PictureNotAvailable
    strImagePath = Me.memProperyPhotoLink
    Me.memProperyPhotoLink.Locked = True
    Me.memProperyPhotoLink.Enabled = False
    Me.ImageFrame.Picture = strImagePath
    Exit Function
PictureNotAvailable:
    strImagePath = "C:\db_Images\NoImage.gif"
    Me.ImageFrame.Picture = strImagePath
End Function