Imports System.ComponentModel
Imports Microsoft.VisualBasic

Public Class DB_Connection
    Shared Sub New()
        Try
            'Edoka
            oread = IO.File.OpenText(appPath + "edokaconn.cfg")
            sConnectionString_edoka = oread.ReadLine
            Globals.sConnectionString_edoka = sConnectionString_edoka
            oread.Close()


            ''tgdata
            'oread = IO.File.OpenText(appPath + "tgdataconn.cfg")
            'sConnectionString_tgdata = oread.ReadLine
            'Globals.sConnectionString_tgdata = sConnectionString_tgdata
            'oread.Close()

            Globals.conn_edoka.sConnectionString = sConnectionString_edoka

            'Globals.conn_tgdata.sConnectionString = sConnectionString_tgdata
        Catch ex As Exception
        End Try

    End Sub

End Class