Fjern advarsel

Jeg sidder og laver en kundedatabase, hvortil jeg også har en funktion hvor jeg hurtigt kan finde en kollega.
Disse kollegaer bliver listet i i listbox med navn, mail og lokalnummer. Når jeg så markerer en kollega og trykker på en knap så skal den ringe kollegaen op..

Dette virker fint nok, men jeg får en advarsel op selvom at jeg har slået advarsler fra.

jeg bruger flg kode

Private Sub Kommandoknap106_Click()
Dim hyperlink
Dim strSQL

'stLinkCriteria = "[SygdomsID]=" & Me![lstSygdom].Column(0) & ""
strSQL = Me![lstKollega].Column(1)

hyperlink = "transferto:" & strSQL
DoCmd.SetWarnings False
Application.FollowHyperlink hyperlink
DoCmd.SetWarnings True

End Sub

Selve kommandoen vil være transerforto:40151 og så ringer den op.
Men inden da kommer denne advarsel hvor jeg skal trykke Ja eller nej

"Åbner "transferto:40151

Hyperlinks kan beskadige computeren og dine data. Du kan beskytte computeren ved kun at klikke på hyperlinks fra kilder, du har tillid til. Vil du fortsætte? "JA" Eller "NEJ"

Nogen der ved hvordan jeg kan få denne væk?