Imports System.IO Imports System.Reflection Module Globals Public Params As New ClsParameters() Public ofile As System.IO.File Public oread As System.IO.StreamReader Public sConnectionString_edoka As String Public sConnectionString_journale As String Public sConnectionString_ams As String Public args As String() = Environment.GetCommandLineArgs() Public conn_edoka As New edokadb.clsConnectionProvider() Public conn_journale As New edokadb.clsConnectionProvider() Public conn_ams As New edokadb.clsConnectionProvider() Public Function ApplicationPath() As String 'Return Path.GetDirectoryName([Assembly].GetExecutingAssembly().Location) Return Path.GetDirectoryName([Assembly].GetEntryAssembly().Location) + "\" End Function End Module