文件打开警告,怎么去掉?

Private Sub 上传附件_Click()
On Error GoTo Exit_Err
Dim FileName, sfilename As String
Dim fs As Object
 Dim Result As Integer
   If Me.子窗体_文档查询.Form.CurrentRecord = 0 Then Exit Sub
    With Application.FileDialog(1)
        .Title = "选择文件"
        .Filters.Clear
        .Filters.add "所有文件", "*.*"
        .AllowMultiSelect = False
        .InitialFileName = CurrentProject.Path
        Result = .Show
        FileName = Trim(.SelectedItems.Item(1))
       
    End With
   
    If FileName = "" Or IsNull(FileName) Then
    Exit Sub
    End If
   
    sfilename = "\\srv-lj-01\LF-sharing" & "\" & Mid(FileName, InStrRev(FileName, "\") + 1)
 
      FileCopy FileName, sfilename
      
         DoCmd.SetWarnings False
        
         DoCmd.RunSQL "update 文档资料 set 附件='有',路径='" & sfilename & "' where 文档资料.编号 " & _
         "like '" & Forms!窗体_文档查询!子窗体_文档查询!编号 & "'"
         DoCmd.SetWarnings True
         MsgBox "图片资料已保存！"
         Me.Refresh
    Exit Sub
Exit_Err:
 '  MsgBox Err.Number & "    " & Err.Description
  Exit Sub
End Sub

Private Sub 打开附件_Click()
On Error GoTo Exit_Err
       If Not IsNull(Me!子窗体_文档查询!路径) Then
         Application.FollowHyperlink Me!子窗体_文档查询!路径
        Else
        MsgBox "无资料可以打开！"
        Exit Sub
     End If
      
 Exit Sub
Exit_Err:
   MsgBox "无资料可以打开！"
  Exit Sub
End Sub"

这个文件打开警告,怎么去掉?