Imports System.IO
Namespace EDOKA
    Public Class DB_Connection

        Shared Sub New()
            Dim fc As Integer = 0
            If fc < 2 Then Globals.ConnectionFileName = "edokaconn.cfg"
            Dim ofile As System.IO.File
            Dim oread As System.IO.StreamReader
            oread = ofile.OpenText(Application.StartupPath + "\" + Globals.ConnectionFileName)
            sConnectionString = oread.ReadLine
            sConnectionString = Crypto.DecryptText(sConnectionString, "HutterundMueller")
            sConnectionString = Left(sConnectionString, Len(sConnectionString) - 1)
            Globals.sConnectionString = sConnectionString
            oread.Close()
        End Sub

    End Class


End Namespace