Private Sub run()
 
        Dim ProcessName As String = "Anwendungsname"
        Dim Process As New Process
        Dim myOleDbConnection As New OleDb.OleDbConnection
        myOleDbConnection.ConnectionString = _
          "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
          Application.StartupPath & "\LOG.mdb"
        Dim objReader As New StreamReader(Quelldatei.txt)
        Dim sLine As String = ""
        Dim arrText As New ArrayList()
 
        Try
            myOleDbConnection.Open()
        Catch ex As Exception
            MessageBox.Show(ex.Message, _
                "Beim Öffnen der Datenbank ist ein Fehler aufgetreten.")
        End Try
 
 
            Do
                sLine = objReader.ReadLine()
                If Not sLine Is Nothing Then
                    arrText.Add(sLine)
                End If
            Loop Until sLine Is Nothing
 
            objReader.Close()
 
 
            For Each sLine In arrText
                Dim nSPalten() As String = sLine.Split(";")
                Process.StartInfo.FileName = ProcessName
                Process.StartInfo.Arguments = (nSPalten(2))
                Process.Start()
 
                'Ergebnis des Aufrufs der Anwendung wird in eine MDB geschrieben
                Dim myOleDbSelectCommand As New OleDb.OleDbCommand
                myOleDbSelectCommand.Connection = myOleDbConnection
                myOleDbSelectCommand.CommandText = "INSERT INTO Tab_LOG (ID," & _
                  "Text1, Status, ChangeDate) VALUES ('" & nSPalten(0) & "', '" _
                  & nSPalten(2) & "','" & ReadLogFile(txt_log_save.Text & "\" & _
                  nSPalten(2) & ".LOG") & "','" & Date.Now & "')"
                myOleDbSelectCommand.ExecuteNonQuery()
                Process.WaitForExit()
            Next       
            myOleDbConnection.Close()
            MsgBox("Done !")
        End If
    End Sub