ник: Силыч
обычно в таких ситуациях на строчке
Do While rcd1.EOF() = False
ставится точка останова (F9)
и запускается скрипт на выполнение
Shift+F8 - "зайдёт во вложенную процедуру"
F8 - пошагово выполнение инструкции
F5 - дальше
во время пошагового выполнения
пользуйтесь окном ImmidiateWindow
и ?ВашаПеременная для отображения информации и её анализа
или Debug.Print ВашаПеременная;ДругаяВашаПеременная
удачи