neu

initATLASAufschubkonten/AtlasAufschubDatenEinlesen.vb

@@ -132,9 +132,9 @@ Module AtlasAufschubDatenEinlesen
 
 
 
-        Dim cn As New SqlConnection()
-        cn.ConnectionString = "Data Source=BUCHHALTUNG\SQLEXPRESS;Initial Catalog=ADMIN;Integrated Security=false;User ID=sa;Password=BmWr501956;"
-        cn.Open()
+        Dim cn As SqlConnection = VERAG_PROG_ALLGEMEIN.SQL.GetNewOpenConnectionADMIN
+        'cn.ConnectionString = "Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=ADMIN;Integrated Security=false;User ID=sa;Password=BmWr501956;"
+        'cn.Open()
         Using cn
             Using cmd As New SqlCommand(sql, cn)
                 cmd.Parameters.AddWithValue("@brgak_datum", brgak_datum)