Вопрос по работе отладчика

[Dmi3i4]

Всем доброго времени суток!
Имеется код :

Код: Выделить всё

Set rs = New ADODB.Recordset
    With rs
            .Open sql, cn, adOpenDynamic, adLockReadOnly
            Set MSHFlexGrid3.DataSource = rs
            If rs.BOF = True And rs.EOF = True Then
            MsgBox "Данные по запросу - не найдены", vbOKOnly + vbInformation, "Внимание"
           
            Else
            MSHFlexGrid3.FormatString = "^Номер проекта|^Дата рагистрации " & _
            "проекта|<Название проекта|^Название объекта|" & _
            "^Номер чертежа|^Дата рагистрации чертежа|^Фамилия конструктора" & _
            "|^Количество форматов|^Фамилия проверившего"
            MSHFlexGrid3.ColWidth(2) = MaxField("Название_проекта", "TabPrj")
            SSTab1.Tab = 3
            MSHFlexGrid3.Visible = True
            End If
                   
            .Close
    End With
    Set rs = Nothing
    cn.Close
Set cn = Nothing

При запуске проекта (по f5) не отрабатывает условие if ..then, но при по-шаговом выполнении все работает нормально
Подскажите в чем проблема ..
Заранее благодарен

[Viper]

Что значит не отрабатывает? Всегда идет на Else или наоборот условие всегда выполняется?

Возможно база данных просто не успевает открыться, а при пошаговом выполнение соответсвенно успевает

[Dmi3i4]

!Viper!

Не переходит на else.

[Dmi3i4]

Вопрос закрыт. Посоветовали перенести строку
Set MSHFlexGrid3.DataSource = rs
после проверки - и всё заработало.
Всем спасибо !