質問に少し不明な点があるので、下記の前提で回答します。はずしていたらすいません。
(1)今,フォームにはテキストボックスしかない（テキスト0）
(2)コマンドボタン（コマンド2）を押すことで、ダイアログを表示しファイル名を取得し
テキストボックスに表示する。
(3)Access2000を使っている。（Excel2000もある）
ファイル名を取得するダイアログを表示する方法は色々あると思いますが、余り難しいことは分からないので下記のような方法で実現してみました。Excelには GetOpenFilename があるので、ちょっと借用しています。
VBE画面でメニューのツール→参照設定で Microsoft Excel 9.0 Object Library にチェックしＯＫ
コマンド2を右クリック→イベントのビルド→コードビルダでコマンド2に下記を貼り付けます。
Private Sub コマンド2_Click()
Dim myFile As Variant '指定したファイル名
Dim myFileFilter As Variant 'ファイルフィルタ
Dim myExcel As Object 'エクセル
Set myExcel = Excel.Application
myFileFilter = "テキストファイル エクセルBook(*.txt;*.xls),*.txt;*.xls"
myFile = myExcel.GetOpenFilename(FileFilter:=myFileFilter)
If myFile <> False Then
テキスト0 = myFile
End If
Set myExcel = Nothing
End Sub
