Public Sub Main()
 
        Dim p As Process
        Dim appFullname As String
 
        accID = InsertData()
        app = CreateObject("Access.Application")
        app.application.visible = True
        pID = ReadPID(app.Application.hWndAccessApp)
        p = Process.GetProcessById(pID)
        If Not app Is Nothing Then
            Do While Not app.Application.visible = False
                Try
                    If Not app.currentproject.fullname = "" Then
                        appFullname = app.currentproject.fullname
                        appPfad = app.currentproject.path
                        appName = app.currentproject.name
                        p.Kill()
                        app = Nothing
                        ExecuteAccess(appFullname)
                    End If
                Catch ex As Exception
                End Try
                System.Threading.Thread.Sleep(1000)
            Loop
        End If
 
    End Sub