ник: snipe
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "r2", CurrentProject.Path & "\TZ\" & Trim(Str(iTZ)) & "*.xls", false, "ТЗ$A91:BJ150"
DoCmd.SetWarnings False
CurrentDb.Execute "DELETE r2.* FROM r2 WHERE (((r2.F11) Is Null));"
DoCmd.SetWarnings True
как-то так и без рекордсетов
по уму еще бы проверку на дублирование записей сделать абы два раза инфу не внесли
(но это уже другой вопрос)