Visual Basic - importar arcivo texto

Necesito ayuda estoy programado en el visual de access y necesito crear un procedimiento que me importe archivos de texto mediante codigo. y que me busque el archivo en una ruta que yo le de. Pero no se como hacerlo lo que he probado no me va. en la ayuda de access viene importar texto pero este no me sirbe porque tengo que darle la ruta completa con el nombre del archivo.
si alguien me puede ayudar se lo agradeceria
saludos

Haber si te entendí, lo que necesitas es abrir un archivo de texto, el cual contiene datos. ¿ no es asi ?

Bueno te envio unn codigo que yo utilizo para leer un archivo de texto, el cual contiene datos de sentencias SQL para una base de datos.

Private Sub CrearTablas()
Dim InFile As Integer ' Descriptor para archivo.
Dim File As String 'Nombre del Archivo
Dim NextLine As String ' Leer cada linea desde archivo.

On Error Resume Next
File = App.Path & "\DAT\DAT0001M.SDB"
' Obtener el siguiente descriptor de archivo libre.
InFile = FreeFile
' Asegurarse de que se especifica un archivo.
If File = "" Then
Exit Sub
End If
' Asegurarse de que el archivo existe antes de intentar abrirlo.
If Dir(File) = "" Then
Exit Sub
End If
'Abrimos el Fichero en el descriptor
Open File For Input As InFile
Line Input #InFile, NextLine
'Mientras no sea Final de Archivo
While Not EOF(InFile)
Line Input #InFile, NextLine
Conection.Execute (NextLine)
Wend
'Cerramos el Archivo
Close InFile
End Sub