Code:
' Ereignisse der Verbindung
Dim WithEvents cLocalWait As ADODB.Connection   ' Warten auf Fertigstellung

:
:
        With xRecord
            .CursorLocation = adUseClient       ' lokal Cache
            .CursorType = adOpenStatic
            .LockType = adLockBatchOptimistic
            .CacheSize = 10000
            .Open xSQL, cLocal, , , adAsyncExecute Or adAsyncFetch
            
            Do While True
                Select Case True
                Case Is = (.State And adStateExecuting) = adStateExecuting
                    DoEvents
                Case Else
                    Exit Do
                End Select
            Loop
            
        End With
:
:
Private Sub cLocalWait_ExecuteComplete(ByVal RecordsAffected As Long, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pCommand As ADODB.Command, ByVal pRecordset As ADODB.Recordset, ByVal pConnection As ADODB.Connection)
' Behandlung des Ereignisses
    If Not pError Is Nothing Then
       ' Fehler passiert
    End If
End Sub