merge

VERAG_PROG_ALLGEMEIN/Classes/SQL.vb

@@ -1,4 +1,5 @@
 Imports System.Data.SqlClient
+Imports DocumentFormat.OpenXml.Bibliography
 
 Public Class SQL
     Public Const LeerDatum As Date = #12/30/1899#
@@ -21,9 +22,20 @@ Public Class SQL
 
     Public Shared Function GetADMINConnectionString() As String
         If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
-            Return My.MySettings.Default.ADMINConnectionString_DEV
+            Try
+                Return My.MySettings.Default.ADMINConnectionString_DEV
+            Catch ex As Exception
+                Return "Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=ADMIN;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;"
+
+            End Try
+
         Else
-            Return My.MySettings.Default.ADMINConnectionString_DEV
+            Try
+                Return My.MySettings.Default.ADMINConnectionString_DEV
+            Catch ex As Exception
+                Return "Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=ADMIN;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;"
+
+            End Try
         End If
     End Function
     Public Shared Function GetFMZOLLConnectionString() As String