Error 3085: Undefined function in expression

[sous]

Hello

I have a function called fCompareStrings

Public Function fCompareStrings(strSource As String, strSearch As String) As Single
Dim intCounter As Integer
Dim strTest As String
Dim intScore As Integer
Const conWORD_LENGTH As Integer = 3
 
For intCounter = 1 To Len(strSource) - conWORD_LENGTH
  strTest = Mid(strSource, intCounter, conWORD_LENGTH)
    If InStr(1, strSearch, strTest, vbTextCompare) > 0 Then
      intScore = intScore + 1
    End If
Next
 
fCompareStrings = 100 * (intScore / (Len(strSource) - conWORD_LENGTH))
End Function
 

and I am trying to execute a query

s1 = "UPDATE Produit, Presentation, tbl_SS SET Presentation.Secu = 1 WHERE Presentation.[No Enregistrement] = tbl_SS.NoR AND fCompareStrings(Produit.[Nom Commercial],tbl_SS.[NOM]) > 50;"
CurrentDb().Execute s1

After all, i get the error 3085: Undefined function 'fCompareStrings' in expression

I have checked the references in tools in visual basic editor and couldnt find any 'Missing' field to uncheck

Any help ?