Public Sub Main()
 
        Dim lngID As Long
        Dim pId As Long
        Dim p As Process
        Dim app As Object
 
        'Hauptdatensatz erzeugen
        lngID = InsertData()
        'Access Objektinstanz erzeugen
        app = CreateObject("Access.Application")
        'Instanz für User sichtbar machen
        app.application.visible = True
        'Prozess-ID der Instanz ermitteln
        pId = ReadPID(app.Application.hWndAccessApp)
        'Prozessinstanz erzeugen für späteren Kill()
        p = Process.GetProcessById(pId)
        'Hauptdatensatz updaten
        EditPID(lngID, pId)
        'Prüfschleife ob Access-Hauptfenster geöffnet ist oder geschlossen wurde
        Do While Not app.Application.visible = False
            Try
                'Prüfen ob .mdb geöffnet
                If Not app.currentproject.fullname = "" Then
                    'Detaildatensatz erzeugen
                    CreateTabControl(lngID, app)
                ElseIf app.currentproject.fullname = "" And Not g_lngID = _
                  Nothing Then
                    'Detaildatensatz schliessen
                    EditDetail()
                End If
            Catch ex As Exception
            End Try
            System.Threading.Thread.Sleep(1000)
        Loop
        'Prüfen ob Detaildatensatz geschlossen wurde
        If Not g_lngID = Nothing Then
            EditDetail()
        End If
        EditData(lngID)
        'Sobald Hauptfenster geschlossen ist, Prozessinstanz killen
        p.Kill()
        'Access Objektinstanz killen
        app = Nothing
 
    End Sub