Try this
Sub GetFile(Control)
   Dim retFile As String, dlg As Variant, s As String
   Set dlg = Application.FileDialog(msoFileDialogFilePicker)
   With dlg
       .InitialFileName = CodeProject.Path
       If .Show = -1 Then s = .SelectedItems(1)
   End With
   If s <> "" Then
       retFile = Right(s, Len(s) - InStrRev(s, "\"))
       Control.Value = retFile
   End If
End Sub

HTH;

Amy

This isn't quite as simple as Application.FileDialog but is more
flexible and works in all versions of Access:

http://www.mvps.org/access/api/api0001.htm

--
John Nurick [Microsoft Access MVP]

Please respond in the newgroup and not by email.

If you'd like to see a small Access database sample based on the link that
John provided, I've got one on my website: (www.rogersaccesslibrary.com).
It is called "PictureLoad.mdb".  This does not choose a file for importing,
rather choosing a picture for adding to the database, but the methodology is
the same.  The only difference is what you choose to do with the selected
file.