sConnectBDE = "Provider=MSDAORA.1;" & _
              "User ID=" & sUidBDE & ";" & _
              "Data Source=" & sDsnBDE & ";" & _
              "Password=quark" & ";" & _
              "Persist Security Info=False"
 
    On Error GoTo DBERR
    connBDE.Open sConnectBDE
 
    While connBDE.State = adStateConnecting
    Wend
 
    Set comm.ActiveConnection = connBDE
    connBDE.CursorLocation = adUseServer
    comm.CommandType = adCmdText
    comm.Prepared = True
 
EinstiegOffl:
    cliT4IF.Init
    cliT4IF.StarteT4
    wsckAlive.Listen
    frmStart.Show
    Exit Sub
 
DBERR:
    rc = MsgBox(Prompt:="Datenbankfehler - keine Verbindung" & vbLf & "Terminal" & _
      "wechselt in den Offline Modus", _
                Buttons:=vbCritical + vbOKOnly, _
                Title:="Initialize")
    bOnlineMode = false
    On Error GoTo 0
    GoTo EinstiegOffl