Private Sub Form_Current()
     On Error GoTo errHandler

     Dim sPath As String

     '  Использование текущей папки
     sPath = CurrentProject.Path & "\"

     ' Файл существует
     If ((Len(Me!txtParentPicture & vbNullString) > 0) And _
          (Len(Dir(sPath & Me.txtParentPicture)) > 0)) Then

         Me!imgParentPicture.Picture = sPath & Me!txtParentPicture
     Else
         ' otherwise display nothing
         Me!imgParentPicture.Picture = "(none)"
     End If

     Exit Sub
<error handling>
End Sub