Добрый день.
Собственно сабж, не могу понять, почему Access намертво виснет.

Есть форма с двумя комбобоксами. After_update первого комбобокса стоит асинхронный запрос для заполнения рекордсета второго. Но во время выполнения запроса access виснет, хотя запрос запускается асинхронно (проверял, например выводом msgbox, на следующем шаге). Как побороть?

Делал как вот тут, только не понял зачем флаг...

http://www.sql.ru/forum/168/voros-k-znatokam-vozmozhno-li-zapustit-asinhronno

Dim WithEvents rstComboBox As ADODB.Recordset
Dim boolFlag as Boolean

'Инициализация
Private Sub Form_Load()
   set rstComboBox = new ADODB.Recordset
   rstComboBox.CursorLocation = adUseClient
end sub


'Собственно after_update первого комбобокса
Private Sub cmb1_AfterUpdate()
   Call setRecordset()
End Sub

'Функция запуска запроса
Private Function setRecordset()
    Dim strFieldName As String, sqlRowSource As String        
    strFieldName = DLookup("[QueryText]", "[tFindAlgo]", "[QueryType] = '" & frm.cmbFind.Value & "'")
    
    sqlRowSource = _
    "SELECT " & _
        "DISTINCT " & strFieldName & _
    "FROM " & _
        "[tCustomerInfo]"
    
    rstComboBox.Open sqlRowSource, CurrentProject.Connection, adOpenStatic, adLockOptimistic, adAsyncExecute
    
End Function

'Событие, все готово
'Присвоение результатов в комбобокс2
Private Sub rstComboBox_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, _
ByVal pRecordset As ADODB.Recordset)
 If boolFlag = False And rstComboBox.State = adStateOpen Then
    rstComboBox.ActiveConnection = Nothing
    Set Me.cmb2.Recordset = rstComboBox.Clone
    rstComboBox.Close
 End If
End Sub

Заранее спасибо.

http://www.sql.ru/forum/1145283/asinhronnyy-zapros