怎样改这个错，去掉错误弹出窗口

代码如下：

Private Sub 添加照片_Click()
    On Error GoTo 错误标签                                      '出错时转到错误标签
    Dim 源文件    As String
    Dim 目标文件  As String
   
    With Application.FileDialog(3) 'msoFileDialogFilePicker     '调用Office文件对话框中的文件选取对话框
        .TITLE = "选择教师照片"                                 '设置对话框标题
        .Filters.Clear                                          '清除文件筛选器
        .Filters.Add "照片", "*.jpg"                            '重新设置筛选器
        .AllowMultiSelect = False                               '禁止对话框多选
        If .Show Then                                           '如果对话框没有被取消
            If IsNull(Me.教师编号) Then Me!照片 = Null            '给任意适合的字段赋值，以生成ID（添加的照片文件需要根据ID来重命名）
            Me!徐章奎的照片.Caption = ""                            '清除错误信息
            源文件 = .SelectedItems.Item(1)                     '将取得的文件路径名保存到变量
            目标文件 = Me!照片文件夹路径 & Me!教师编号 & ".jpg"   '生成存放到照片文件夹中的文件名
            If Dir(目标文件) <> "" Then                         '如果照片已存在
                If MsgBox("照片已存在，是否替为新照片？", _
                    vbQuestion + vbYesNo, "确认") = vbYes Then  '显示确认消息框，选择是否替换
                    Kill 目标文件                               '如果选择“是”，则先删除已存在照片
                Else
                    Exit Sub                                    '否则退出过程不再处理
                End If
            End If
            If Not 源文件 Like Me!照片文件夹路径 & "*" Then     '如果源文件不是照片文件夹中的文件
                FileCopy 源文件, 目标文件                       '将选择的图片文件复制到照片文件夹
            End If
            Me!照片图像.Picture = 目标文件                      '将照片加载到图像控件
        End If
    End With
   
退出标签:
    Exit Sub                                                    '退出过程
   
错误标签:
    MsgBox Err.Description, vbCritical, "错误 #" & Err          '出错时先显示错误消息框
    Resume 退出标签                                             '然后转到退出标签
End Sub