Open dialog box won't open

[tmaxwell]

I know I listed this in "forms" I meant to post in Import/Export data

This should call the "Open Dialog Box". it errors out on strFilter=
ahtAddFilterItem
I am using 2003 access. I am use to working with access 97?

Private Sub Command39_Click()
On Error GoTo Err_Command39_Click

Dim strFilter As String
Dim strInputFileName As String

strFilter = ahtAddFilterItem(strFilter, "Excel Files (*.XLS)", "*.XLS")
strInputFileName = ahtCommonFileOpenSave( _
Filter:=strFilter, OpenFile:=True, _
DialogTitle:="Please select an input file...", _
Flags:=ahtOFN_HIDEREADONLY)


Exit_Command39_Click:
Exit Sub

Err_Command39_Click:
MsgBox Err.Description
Resume Exit_Command39_Click

End Sub