ACCESS 2010 ExecCmd (Shell Befehl) ausführung innerhalb Formular einbinden und anzeigen lassen

Public Sub ExecCmd(cmdline$)
     Dim proc As PROCESS_INFORMATION
     Dim Start As STARTUPINFO
     Dim ReturnValue As Integer
' Initialisiert die STARTUPINFO Struktur:  

     Start.cb = Len(Start)
' Startet die Shell-Anwendung:  

     ReturnValue = CreateProcessA(0&, cmdline$, 0&, 0&, 1&, _
     NORMAL_PRIORITY_CLASS, 0&, 0&, Start, proc)
' Wartet bis Shell-Anwendung geschlossen ist:  

     Do
       ReturnValue = WaitForSingleObject(proc.hProcess, 0)
       DoEvents
       Loop Until ReturnValue <> 258
ReturnValue = CloseHandle(proc.hProcess)

   End Sub

Sub xmlDatein_einlesen()

Dim fs As Object, ordner As Object
Set fs = CreateObject("Scripting.filesystemobject")  
   ExecCmd "C:\anpassung.bat"  
End Sub