Public Sub Main()
 
    Dim lngID As Long
 
      lngID = InsertData()
			ExecCmd("C:\Programme\Microsoft Office\OFFICE11\MSACCESS.exe ", lngID)
 
	End Sub
 
	Public Sub ExecCmd(ByRef cmdline As String, ByRef lngID As Integer)
 
		Dim uProc As PROCESS_INFORMATION
		Dim uStart As STARTUPINFO
		Dim lRetVal As Integer
		Dim pid As Integer
 
		  uStart.cb = Len(uStart)
		  lRetVal = CreateProcess(0, cmdline, 0, 0, 1, NORMAL_PRIORITY_CLASS, 0, 0, _
  uStart, uProc)
		  pid = uProc.dwProcessID
		  EditPID(lngID, pid)
		  Do While WaitForSingleObject(uProc.hProcess, 10) = WAIT_TIMEOUT
        Debug.Print(IsAppRunning(pid))
        System.Windows.Forms.Application.DoEvents()
		  Loop 
		  lRetVal = CloseHandle(uProc.hProcess)
		  EditData(lngID)
 
	End Sub
 
	Public Function IsAppRunning(ByVal pID As Integer) As Boolean
 
        Dim oProcessList As Process() = Process.GetProcesses
        Dim oProcess As Process
        Dim sProcessFile As String
        Dim bResult As Boolean
        Dim app As Object
        Dim hwnd As Integer
        Dim ProcessID As Long
        For Each oProcess In oProcessList
            Try
                sProcessFile = oProcess.Id
                bResult = (sProcessFile = pID)
                If bResult Then
                    Try
                        'an dieser Stelle würde ich gerne auf die richtige
                        'Access Application zugreifen
                        app = GetObject(, "Access.Application")
                        Debug.Print(app.CurrentProject.Name)
                        Debug.Print(app.Application.hWndAccessApp)
                        Debug.Print(hwnd)
                        'hwnd = GetWindowThreadProcessId( 
                        ' app.Application.hWndAccessApp, ProcessID)
                        Return True
                    Catch ex As Exception
                        Return False
                    End Try
                End If
            Catch ex As Exception
            End Try
        Next
 
    End Function