В примере кода есть строка ...
DoCmd.TransferText acImportDelim,, strTable, strPathFile, blnHasFieldNames
Просто добавьте свою спецификацию импорта в эту строку ...
DoCmd.TransferText acImportDelim,"GPS1", strTable, strPathFile, blnHasFieldNames