Private Sub verarbeitungsstand()
 
On Error Resume Next
 
frmHaupt.MousePointer = vbHourglass
 
Dim rs As Recordset, con As Connection, wrkODBC As Workspace
 
Set wrkODBC = CreateWorkspace("NewODBCWorkspace", "Admin", "", dbUseODBC)
 
Set con = wrkODBC.OpenConnection("DWH_VAC_PRD", , True, _
  "ODBC;DATABASE=DWH_VAC_PRD;UID=" & user & ";PWD=" & passwort & _
  ";DSN=DWH_VAC_PRD")
 
Set rs = con.OpenRecordset("SELECT MARKET_CODE, ZR_BIS_DATE FROM V_ZEITRAUM" & _
  "WHERE MARKET_CODE IN ('MMO','MMC')")
 
Do Until rs.EOF
 
    If rs!MARKET_CODE = "MMC" Then
 
        txtCredit.Text = rs!ZR_BIS_DATE
 
    Else
 
        txtDebit.Text = rs!ZR_BIS_DATE
 
    End If
 
    rs.MoveNext
 
Loop
 
con.Close
wrkODBC.Close
 
frmHaupt.MousePointer = vbDefault
 
End Sub