Imports System.IO
Imports System.Reflection

Module Globals
    Public ConnectionFilename As String
    Public sConnectionstring As String
    Public Mitarbeiternr As Integer
    Public Applikationsdaten As New DataTable
    Public AppldataRow As Integer
    Public Words As New Collection()
    Public Apphandle As Int32
    Public conn As New edokadb.clsConnectionProvider()
    Public DivFnkt As New EDOKA.clsDivFnkt()




    Public Function ApplicationPath() As String
        Return Path.GetDirectoryName([Assembly].GetEntryAssembly().Location) + "\"
    End Function


End Module