Public Sub import()
Dim FileName, FilePathName, Path, FileNameList() As String
Dim FileCount As Integer
DoCmd.SetWarnings False
Path = "C:\test"
FileName = Dir(Path & "")
While FileName <> "" And Right(FileName, 3) = "txt"
FileCount = FileCount + 1
ReDim Preserve FileNameList(1 To FileCount)
FileNameList(FileCount) = FileName
FileName = Dir()
Wend
If FileCount > 0 Then
For FileCount = 1 To UBound(FileNameList)
FilePathName = Path & FileNameList(FileCount)
DoCmd.TransferText transferType:=acImportDelim, SpecificationName:="Query1 Export Specification", TableName:="import_table", FileName:=FilePathName, hasfieldnames:=True
Next
End If
DoCmd.SetWarnings True
End Sub