Ускоряет ли обращение к папке с файлами команда типа TMP =

Dim Papka, FileName As String, s As String, db As DAO.Database
Set db = CurrentDb
db.Execute "DELETE full_xx.* FROM full_xx"
db.Execute "ALTER TABLE full_xx ALTER COLUMN ключ counter (1,1)"
db.Execute "insert into full_xx(Дата) Values (Now())"
Papka = CurrentProject.Path & "\Файлы эксель"
FileName = Dir(Papka & "*.xl*")
SysCmd acSysCmdClearStatus
tmp = "full_xx"
Do While Len(FileName) > 0
s = "select * from [Лист1$A1:I180] IN '" & Papka & FileName & "'[Excel 8.0;IMEX=1;HDR=NO] WHERE F1&F2 Is Not Null OR F1 <> ""Код"""
db.Execute "insert into full_xx " & s
db.Execute "UPDATE full_xx SET Файл = '" & FileName & "' WHERE Файл Is Null"
FileName = Dir()
Loop
db.Execute "insert into full_xx(Дата) Values (Now())"
Beep
db.Execute "UPDATE full_xx SET F6 = REPLACE ([F6],""."","","")"
db.Execute "UPDATE full_xx SET [Файл] = REPLACE(REPLACE([Файл],"".xls"",""""),""x"","""")"
db.Execute "UPDATE full_xx AS fx SET fx.F5 = Trim (fx.F5), fx.[F3] = Trim (fx.[F3]), fx.F4 = Trim (fx.F4)"