Private Sub Form_Current()
Dim strPathPhoto As String
'file drawing to place in root directory
'strPathPhoto - full way to drawing
'Photo - image control
strPathPhoto = CurrentProject.Path & "\Photo_1.jpg"
If Dir(strPathPhoto) <> "" Then
Photo.Picture = strPathPhoto
Else
Photo.Picture = ""
End If
End Sub