Первый раз не сработала.
Второй после одного прогона в отладчике сработала.
Вставил обработчик ошибок.
Ошибки не ловит.
Закрыл базу. Открыл. Все работает.

ПС. Забавно. Разархивировал еще раз. Опять ругается на какой-то модуль.
Открыл в отладчике.Закрыл.
Все работает.
Возможно не описана переменнаz fso as object


Вставь
Option Explicit
......
Dim fld, f1, fc, S, kol_vo, STR_File_NAME$, txt$
Dim fso As Object, ts As Object
Может пройдет с первого раза

опять фартуна стоит вот так.
Этот код в этой форме - работает.
А в фоме, что в основной программе - работает только на моём компе