test

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
+