Imports System.IO Imports System.Reflection Module Globals Public ConnectionFilename As String Public sConnectionstring As String Public Mitarbeiternr As Integer Public Function ApplicationPath() As String Return Path.GetDirectoryName([Assembly].GetEntryAssembly().Location) + "\" End Function End Module