Зависание во время открытия RecordSet - VB

Формулировка задачи:

Пишу программы на VB6 по обработке MDB баз - при переходе на Win7 (64) - начались зависания при открытии потока данных Recordset или при выполнении Execute - причем нерегулярно - в диспетчере задач - (не отвечает) ??? Вот вырезка из программы:

    frmMDIMain.StatusBar1.Panels(1) = "перед.открытием БД"
    DoEvents
        Rs.Open strSQL, _
                cnDB, adOpenKeyset, adLockReadOnly
        
    frmMDIMain.StatusBar1.Panels(1) = "открыли БД"
    DoEvents
        
        If Not Rs.EOF Then iKol = Rs.RecordCount

Решение задачи: «Зависание во время открытия RecordSet»

textual
                            Листинг программы 
                        
                            Rs.Open strSQL, _
                cnDB, 3, 3