access查询中调用自定义函数的方法是什么

[code=vb]
Public Function WordFrequency(ByVal Lyric As String, ByVal Word As String) As String
Dim arr As Variant
Dim brr As Variant
Dim i As Long
Dim countChar As Long
If Lyric = “” Or Word = “” Then Exit Function
If InStrRev(Word, “|”) = 0 Then Exit Function
arr = Split(Word, “|”)
For i = 0 To UBound(arr) - 1
brr = Split(Lyric, arr(i))
countChar = UBound(brr) - LBound(brr)
WordFrequency = WordFrequency & ““” & arr(i) & “”” & “出现次数：” & countChar & vbCrLf
Next i
End Function
[/code]