在添加照片时出现运行时错误‘-2147467259（8000

Private Sub 添加照片_Click()
' 显示一个 Office 打开文件对话框，为当前的图书记录
' 选择一个文件名．如果用户选择了一个文件，
' 则将它显示到图片控件中
   
    Dim FileName As String
    Dim Result As Integer
    With Application.FileDialog(msoFileDialogFilePicker)
        .TITLE = "选择照片"
        .Filters.Add "JPEG", "*.jpg"
        .Filters.Add "位图文件", "*.bmp"
        .FilterIndex = 1
        .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