Prueba esto:
Dim f As Office.FileDialog
Dim ruta As String
Set f = Application.FileDialog(msoFileDialogFilePicker)
With f
.AllowMultiSelect = False
.Title = "Selecciona ruta"
.InitialFileName = Application.CurrentProject.Path
.Filters.Clear
.Filters.Add " All Files", "*.txt"
If .Show = True Then ruta=.SelectedItems(1)
End With
If Nz(ruta,"")<>"" Then
DoCmd.TransferText acImportDelim,, "NombreTabla", ruta, True
End If
A tener en cuenta en la linea del TransferText:
1º/ Debes cambiar "NombreTabla" por el nombre de tu tabla de destino.
2º/ Si tu archivo txt no tiene nombres de campos , debes cambiar el True por False
3º/ Si ves que no te importa correctamente, mi consejo es que hagas una importación "manual", siguiendo el asistente de la cinta de opciones, y en uno de los últimos pasos, cuando ya has configurado cómo se debe importar el txt, guardes esos pasos como especificación y la uses en el TransferText (mira este enlace: https://microsoft.public.es.access.narkive.com/sBXYYnMU/importar-archivos-de-texto-sin-nombre-de-columna). Por ejemplo si la guardas como "miImportacion" sería:
DoCmd.TransferText acImportDelim,"miImportacion" ,"NombreTabla", ruta, True