DoCmd.TransferText acImportDelim, ImportSpecification, "_", filePath, False
http://www.sql.ru/forum/1252813/vba-import-tekstovika-v-bazu-oshibka-f1