Module Globals
    Public Spaltendaten As New DataTable
    Public sConnectionString As String
    Public conn As New DB.clsConnectionProvider
    Public ConnectionFileName As String = ""
    Public Mitarbeiternr As Integer
    Public TmpFilepath As String
    Public Objekt As New DataTable
    Public Objekt_Beziehung As New DataTable
    Public SecurityDaten As New DataSet
    Public VerantwTKBMA_Data As New DataTable
    Public KontaktSD_Data As New DataTable

    Public WithEvents Generic_Event_Handler As New _Generic_Event_Handler.Generic_Event_Handler

    Public Function Check_Beziehung(ByRef TargetDBObject As String, ByVal Type1 As Integer, ByVal type2 As Integer, ByRef Change_Keys As Boolean) As Boolean

        For Each dr As DataRow In Globals.Objekt_Beziehung.Rows
            If dr.Item("Objekt1") = Type1 And dr.Item("Objekt2") = type2 And dr.Item("Aktiv") = True Then
                TargetDBObject = dr.Item("Objektname")
                Change_Keys = dr.Item("Key_Umdrehen")
                Return True
                Exit For
            End If
        Next
        Return False
    End Function

End Module