By the way,
I am using the following code:
im fileName As String
Dim arrFileName() As String
Dim result As Integer
With Application.FileDialog(msoFileDialogFilePicker)
.Title = "Select Employee Picture"
.Filters.Add "All Files", "*.*"
.Filters.Add "JPEGs", "*.jpg"
.Filters.Add "Bitmaps", "*.bmp"
.FilterIndex = 2
.AllowMultiSelect = False
.InitialFileName = CurrentProject.Path
result = .Show
If (result <> 0) Then
arrFileName() = Split(.SelectedItems.Item(1), "\", -1)
fileName = "\" + arrFileName(UBound(arrFileName) - 1) + "\" +
arrFileName(UBound(arrFileName))
Me![photo].Visible = True
Me![photo].SetFocus
Me![photo].Text = fileName
End If
End With