Sub test()
With CreateObject("AdoDb.Connection")
.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & ";Extended Properties=""Text;HDR=YES;FMT=Delimited;"""
Set Rs = .Execute("Select * from [TNIC#txt]")
For i = 0 To Rs.Fields.Count - 1
Range("A1").Offset(, i) = Rs(i).Name
Next
Range("A2").CopyFromRecordset Rs
.Close
End With
'
End Sub