Where can I find the Access code for ahtCommonFileOpenSave and ahtAddFilterItem function

From a previous  question (Relink access table),  I received the code below where 2 functions are missing.
ahtAddFilerItem and ahtCommonFileOpenSave

Where can I find the code for those function?

Carol

Function fGetMDBName(strIn As String) As String
'Calls GetOpenFileName dialog
Dim strFilter As String

    strFilter = ahtAddFilterItem(strFilter, _
                    "Access Database(*.mdb;*.mda;*.mde;*.mdw) ", _
                    "*.mdb; *.mda; *.mde; *.mdw")
    strFilter = ahtAddFilterItem(strFilter, _
                    "All Files (*.*)", _
                    "*.*")

    fGetMDBName = ahtCommonFileOpenSave(Filter:=strFilter, _
                                OpenFile:=True, _
                                DialogTitle:=strIn, _
                                Flags:=ahtOFN_HIDEREADONLY)
End FunctionStart Free Trial