Imports System.ComponentModel Imports Microsoft.VisualBasic Namespace EDOKA Public Class DB_Connection Shared Sub New() oread = IO.File.OpenText(Globals.ApplicationPath + "edokaconn.cfg") sConnectionString_edoka = oread.ReadLine Globals.sConnectionString_edoka = sConnectionString_edoka oread.Close() Globals.conn_edoka.sConnectionString = sConnectionString_edoka End Sub End Class End Namespace