请教：代码剥离罗斯文系统后出错

我根据罗斯文商贸系统代码，重做雇员表和窗体，点击添加图片的时候报错，提示变量（msoFileDialogFilePicker）未定义，这个不是常量吗？

Sub getFileName()
    Dim fileName As String
    Dim result As Integer
    With Application.FileDialog(msoFileDialogFilePicker)
        .Title = "选择雇员照片"
        .Filters.Add "所有文件", "*.*"
        .Filters.Add "JPEGs", "*.jpg"
        .Filters.Add "位图文件", "*.bmp"
        .FilterIndex = 3
        .AllowMultiSelect = False
        .InitialFileName = CurrentProject.path
        result = .Show
        If (result <> 0) Then
            fileName = Trim(.SelectedItems.Item(1))
            Me![照片路径].Visible = True
            Me![照片路径].SetFocus
            Me![照片路径].Text = fileName
            Me![姓氏].SetFocus
            Me![照片路径].Visible = False
            错误信息.Visible = False
        End If
    End With
End Sub