From 4ec29d0288484706f74d34ede28d6545f537898d Mon Sep 17 00:00:00 2001
From: "d.breimaier" <d.breimaier@verag.ag>
Date: Mon, 7 Nov 2022 16:26:27 +0100
Subject: [PATCH] test

---
 VERAGAddIn/ThisAddIn.vb | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/VERAGAddIn/ThisAddIn.vb b/VERAGAddIn/ThisAddIn.vb
index 4341c14..6667cd7 100644
--- a/VERAGAddIn/ThisAddIn.vb
+++ b/VERAGAddIn/ThisAddIn.vb
@@ -177,16 +177,23 @@ Public Class ThisAddIn
     End Sub
 
 
-    Public Sub checkConnection()
+    Private Sub checkConnection()
 
 
         Dim con = New VERAG_PROG_ALLGEMEIN.SQL
 
         If con.getValueTxtBySql("SELECT 1", "FMZOLL") <> 1 Then
             MsgBox("ACHTUNG: Server nicht erreichbar!" & vbCrLf & "VERAG ADD In wird beendet")
-            Application.Quit()
         End If
 
+        'For Each COMAddIn As COMAddIn In Me.Application.COMAddIns
+
+        '    If (COMAddIn.ProgId.Contains("< ADDIN_PROG_ID >")) Then
+
+        '        COMAddIn.Connect = False
+        '        Exit
+        Next
+