Уважаемые всезнающие!
Помогите, плз, в таком вопросе.
Есть некий каталог типа "образец", в нем в виде zip-файлов ложатся dbf-ки. Стоит задача импортировать записи из них в mdb в таблицу Общая.

Пытаюсь решить такми методом:

Прилинковываю таблицу Промежуточная из файла с именем ОбразецДБФ

Начало цикла
Получаем имя архивного файла для распаковки (N.B. в имени файла присутствует дата, которая выбирается в форме)
Dim RetVal
RetVal = Shell("C:\program files\winrar\winrar.EXE e имя_архивного_файла c:\образец\ОбразецДБФ", 1)
'''''Метка (см. ниже)
DoCmd.RunSQL Insert в Общая из Промежуточная
Kill ОбразецДБФ
Конец цикла

Теперь суть вопроса. Как заставить Акцесс ждать в месте, обозначенном как Метка, пока на завершится процесс распаковки? Т.е. как заставить его проклятого понимать, работает ли Winrar либо уже отмучался?
Заранее спасибо.

Или, как второй вариант

2 Incold.
Плз, для тех, кто в танке. Расскажи, уважаемый, как вызывать описанную в топике по ссылке процедуру применительно к моему примеру и куда запихнуть строку вызова Rar'a.
Сэнкс.

Не бросайте камнями. Предвижу дальнейшие вомущения, мол, сволочь, постит, прежде чем в сети поковырять. Нашел сам. Мож, кому-нибудь пригодится. Вот: http://subscribe.ru/archive/comp.soft.prog.access2000/200104/25084919.html