нужно чтобы кнопка на форме открывала диалог импорта текстового файла в энную таблицу

У меня возникает такая ошибка при использовании ниженаписаного "Введенное выражение содержит имя функции которое приложению офис акцесс не удается найти", Подскажите пожалуйста в чем геморой!! Очень благодарен!
у меня стоит Офисе 2003 !
Мне нужно чтобы кнопка на форме открывала диалог импорта текстового файла в энную таблицу!!!

Пример использования:

Function GetImportFiles(sInitDir As String) As Collection
Dim strFilter As String
Dim lngFlags As Long
'Dim cFiles As Collection
Dim i As Long
lngFlags = ahtOFN_EXPLORER + ahtOFN_ALLOWMULTISELECT
strFilter = ahtAddFilterItem(strFilter, "Text Files (*.txt), MDB", _
"*.TXT;*.MDB")
Set GetImportFiles = ahtCommonFileOpenSave(InitialDir:=sInitDir, _
Filter:=strFilter, FilterIndex:=3, flags:=lngFlags, _
DialogTitle:="Выбор файлов для импорта")

If Not GetImportFiles Is Nothing Then
For i = 1 To GetImportFiles.Count
MsgBox GetImportFiles(i)
Next i
End If
End Function