http://eksperten.dk/spm/484350 , fejl ved brug af funktionen

"Compile error:  Sub or Function not defined"
Og markering af, ahtAddFilterItem .
I denne kode.
Function Backup()
    Dim strFilter As String
    Dim lngFlags As Long
    Dim strBackup As String
    CurrentDb.TableDefs.Refresh
   
    strFilter = ahtAddFilterItem(strFilter, "Access Files (*.mdb)", "*.mdb")
 
    strBackup = ahtCommonFileOpenSave(InitialDir:=CurrentProject.path, _
        filter:=strFilter, FilterIndex:=3, OpenFile:=False, Flags:=ahtOFN_OVERWRITEPROMPT Or ahtOFN_READONLY, _
        DialogTitle:="Gem sikkerhedskopi som...")
If Len(strBackup) > 0 Then
    FileCopy fGetLinkPath("t_adgang"), strBackup
End If
End Function
Er der en reference jeg mangler?