Private Sub verarbeitungsstand()
 
On Error Resume Next
 
frmHaupt.MousePointer = vbHourglass
 
Dim rs As Recordset, con As Connection, wrkODBC As Workspace, zeit As Single
 
Set wrkODBC = CreateWorkspace("NewODBCWorkspace", "Admin", "", dbUseODBC)
 
Set con = wrkODBC.OpenConnection("DWH_VAC_PRD", dbRunAsync, True, _
  "ODBC;DATABASE=DWH_VAC_PRD;UID=" & user & ";PWD=" & passwort & _
  ";DSN=DWH_VAC_PRD")
 
zeit = Timer
 
Do While CInt(Timer - zeit) < 60
 
    If Not con.StillExecuting Then GoTo conOK
 
Loop
 
GoTo conCancel
 
conOK:
 
Set rs = con.OpenRecordset("SELECT MARKET_CODE, ZR_BIS_DATE FROM V_ZEITRAUM" & _
  "WHERE MARKET_CODE IN ('MMO','MMC')", , dbRunAsync)
 
zeit = Timer
 
Do While CInt(Timer - zeit) < 60
 
    If Not con.StillExecuting Then GoTo queryOK
 
Loop
 
conCancel:
 
StatusOutput "Time Out - Verarbeitungsstandabfrage abgebrochen."
con.Cancel
 
GoTo conClose
 
queryOK:
 
[...]