Vermerke

VERAGAddIn/ThisAddIn.vb

@@ -182,12 +182,12 @@ Public Class ThisAddIn
 
     Private Sub checkConnection()
 
-        Dim con = New SQL
+        Dim SQL = New VERAG_PROG_ALLGEMEIN.SQL
 
         For Each COMAddIn As COMAddIn In Me.Application.COMAddIns
 
             If COMAddIn.ProgId.Contains("VERAGAddIn") Then
-                If con.getValueTxtBySql("SELECT 1", "AVISO") <> 1 Then
+                If SQL.getValueTxtBySql("SELECT 1", "AVISO") <> 1 Then
                     MsgBox("ACHTUNG: Server nicht erreichbar!" & vbCrLf & "VERAG ADD In wird beendet")
                     COMAddIn.Connect = False
                 End If