Public Sub ExecuteAccess(ByVal aName As String)
 
        Dim uProc As PROCESS_INFORMATION
        Dim uStart As STARTUPINFO
        Dim lRetVal As Integer
        Dim cmd As String
        cmd = "C:\Programme\Microsoft Office\OFFICE11\MSACCESS.exe "
        cmd = cmd & aName
        uStart.cb = Len(uStart)
        keybd_event(VK_SHIFT, 0, 0, 0)
        lRetVal = CreateProcess(0, cmd, 0, 0, 1, NORMAL_PRIORITY_CLASS, 0, 0, _
          uStart, uProc)
        keybd_event(VK_SHIFT, 0, KEYEVENTF_KEYUP, 0)
        pID = uProc.dwProcessID
        EditPID()
        AddDetail()
        Do While WaitForSingleObject(uProc.hProcess, 10) = WAIT_TIMEOUT
            System.Windows.Forms.Application.DoEvents()
        Loop
        lRetVal = CloseHandle(uProc.hProcess)
        EditDetail()
        EditData()
 
    End Sub

        keybd_event(VK_SHIFT, 0, 0, 0)
        lRetVal = CreateProcess(0, cmd, 0, 0, 1, NORMAL_PRIORITY_CLASS, 0, 0, _
          uStart, uProc)
        keybd_event(VK_SHIFT, 0, KEYEVENTF_KEYUP, 0)