With Application.FileSearch
.NewSearch
.LookIn = PicPath
.FileName = [SOCIAL_SEC] & ".jpg"
.Execute
Found = clng(.FoundFiles.Count)
If Found Then
[emppic].Picture = PicPath & [SOCIAL_SEC] & ".jpg" 'found picture
Else
[emppic].Picture = PicPath & "SAC.bmp" 'default
End If
End With