Διακοπή μηνύματος για άνοιγμα αρχείου Word

[γιώργοςΚ]

Καλησπέρα,

Σε μια φόρμα έχω καθορίσει την διαδρομή ενός αρχείου Word το οποίο ανοίγει σε WebBrowser Object στην φόρμα. Το πρόβλημα ειναι ότι κάθε φορά που ανοϊγει η σχετική φόρμα λαμβάνω το επισυναπτόμενο μήνυμα και πρέπει ο χρήστης να επιλεγει το Open για να εμφανιστεί το αρχείο.

Πιο κάτω ο κώδικας που έχω στην φόρμα για το άνοιγμα του αρχειου, και ευχομαι κάποιος να βοηθήσει έτσι ώστε να μετατραπεί ο κώδικας για να μην λαμβάνω το σχετικό μήνυμα

Private Sub Form_Load()
cmdBrowse_Click
End Sub

'................................................. .................................................. .................................................. ............

Private Sub cmdBrowse_Click()
Dim strFile As String
' strFile = FilePicker()
strFile = "C:\Users\G.Stylianou\Desktop\Test.docx"


If strFile <> "" Then
On Error Resume Next
DoCmd.Hourglass True
[WebBrowser0].Object.ExecWB OLECMDID_OPTICAL_ZOOM, _
OLECMDEXECOPT_DONTPROMPTUSER, CLng(100), vbNull
[WebBrowser0].Object.Navigate2 strFile
DoCmd.Hourglass False
End If

End Sub