Неонятное поведение ADODB.Connection (или Recordset)

Пятница, 25 Декабря 2015 г. 14:54 + в цитатник

Аксесовская база mdb, Win7, 32
Происходит следующее: открываю рекордсет rezult_RS.Open, свойство RecordCount>0, записи есть.
Работаю, пишу новый код в другом модуле, запускаю этот же пример, и вдруг значение свойства RecordCount не определено, записей нет. Выполняю все то же в пошаговом режиме - работает. Пытаюсь еще раз в рантайме - записей нет.
Перезапускаю комп - работает. После нескольких выполнений - отпят записей нет!!
Хелп!

Создаю соединение

Function CreateADOConnectionToDB(ByRef CNN_obj As ADODB.Connection, cnn_string As String) As Boolean
    
    On Error GoTo ErrHandler

    CNN_obj.Open cnn_string, "юзверь", , adConnectUnspecified
    CreateADOConnectionToDB = True
    Exit Function
    
ErrHandler:
    'BasicFunctions.RaiseError 514
    If (Err.Number = 3705) Then
        MsgBox Err.Description
        CreateADOConnectionToDB = False
        Exit Function
    End If
    BasicFunctions.DisplayError
End Function

Функции передается переменная SMART_CNN

'*************************************** _
Пытаюсь добыть данные
Set rezult_RS = New ADODB.Recordset

SQL_query = "SELECT ID_SU, CF_Cumulative, Ïðèãîâîð, Revenue, Capex, Opex FROM [Èòîãè] " _
    & "WHERE ID_SU IN (SELECT ID_SU FROM " & SMEX_IDS_TABLE_NAME & " IN '" & SMART_Exec.TmpDBPath & "');"
Debug.Print SQL_query
rezult_RS.Open SQL_query, SMART_CNN, adOpenStatic, adLockReadOnly'ВОТ ОН ЭТОТ САМЫЙ ЗАТЫК
If Not (rezult_RS.RecordCount > 0) Then
    Set PrDisplayer = Nothing
    Exit Function
End If
'***************************************