Undefined function in expression ?

følgende test query - 
SOM OMSÆTTER EN TALRÆKKE "10;20;30" TIL TEKST "ABE - KADABE - SPENDABEL"

giver 'Undefined function in expression :

SELECT tbltest.id, tbltest.rmomf, tal2tekst([rmomf],"Omf-txt","tbl-omfatter","Omf-id") AS tekstudtryk
FROM tbltest;


hvor function er:

Public Function tal2tekst(FieldVal As String, FieldName As String, TableName As String, Criteria As String) As String
Dim Pos As Long
Dim Ord As String, RestStr As String
    tal2tekst = ""
    If FieldVal <> "" Then '
        ' fjern snulderet
        RestStr = Trim(FieldVal)
   
        ' hug strengen i stykker
        Do While Len(RestStr) > 0
            Pos = InStr(1, RestStr, ";")
            If Pos > 0 Then
                Ord = Nz(DLookup("[" & FieldName & "]", "[" & TableName & "]", "[" & Criteria & "]" & " = " & Left$(RestStr, Pos - 1)), "?")
                RestStr = Trim$(Right$(RestStr, Len(RestStr) - Pos))
                tal2tekst = tal2tekst & IIf(Len(tal2tekst) > 0, " - ", "") & Ord
            Else
                Ord = Nz(DLookup("[" & FieldName & "]", "[" & TableName & "]", "[" & Criteria & "]" & " = " & RestStr), "?")
                tal2tekst = tal2tekst & IIf(Len(tal2tekst) > 0, " - ", "") & Ord
                RestStr = ""
            End If
        Loop
    End If
End Function

Funktionen kan ses query wizarden og virker selvfølgelig med en test:

Sub test()
MsgBox tal2tekst("10;100;87", "Omf-txt", "tbl-omfatter", "Omf-id")

End Sub

Er der nogen, der har en god forklaring på, hvorfor den er undefined ved eksekvering? Sådan noget plejer at virke !

HENRIK