Importing large files

Dim strPath As String
Dim strInput As String
Dim varTemp As Variant
Dim rst As DAO.Recordset
 
strPath = "C:\YourFolder\YourFileName.txt"
Set rst = CurrentDb.OpenRecordset("YourTableNameHere")
 
Open strPath For Input As #1
Do Until EOF(1)
LineInput #1, strInput
 
varTemp = Split(strInput, ",")
 
With rst
   .AddNew
   !Fields(0) = varTemp(0)
   !Fields(1) = varTemp(1)
   !Fields(2) = varTemp(2)
   !Fields(3) = varTemp(3)
   !Fields(4) = varTemp(4)
   !Fields(5) = varTemp(5)
  .Update
Loop
rst.Close
Close #1
Set rst = Nothing