Visual Basic

<section>
  <subsection id="sub1" >
    <item id="item 1" value="value 1" />
    <item id="item 2" value="value 2" />
  </subsection>
  <subsection id="sub2" >
    <item id="item 1" value="value 1" />
    <item id="item 2" value="value 2" />
  </subsection>
</section>

Private Function getProcessOutput(ByVal processName As String, ByVal args As String, ByVal processPath As String)
        Dim output As String = ""
        Try
            Dim prc As Process = New Process    'Create object of Process.
            Dim prcInfo As New ProcessStartInfo 'Create object of ProcessStartInfo
            With prcInfo                        'Set attributes to ProcessStartInfo object.
                .FileName = processName         'processname to start
                .Arguments = args               'filename is passed as argument
                .CreateNoWindow = True          'Make background process
                .UseShellExecute = False        'Set to false to redirect output/error.
                .RedirectStandardOutput = True  'Enable output redirection
                .RedirectStandardError = True   'Enable error redirection
                .WorkingDirectory = processPath 'working directory where process file is stored.
            End With
            prc.StartInfo = prcInfo
            prc.Start()

                    prc.BeginOutputReadLine()   'Start reading output in asynchronous way.
                    output = prc.StandardError.ReadToEnd()  'Read whole error.
                    prc.WaitForExit()   'wait for process to exit.
      Catch ex as Exception
            Msgbox(ex.message)
      End Try

        Return output       'Return output whether it is error or program output.
    End Function

Try
        Me.listView1.Items.Clear()
        Dim resultFound As Integer
        DBConnection.connect()                          'Code to open database.
        Dim sql As String = "select * from MortgageDetails where Current_Date between '" & Convert.ToDateTime(txtDateFrom.Text) & "' and '" & Convert.ToDateTime(txtDateTo.Text) & "'"
        Dim cmd As New OleDbCommand(sql, con)
        Dim reader As OleDbDataReader = cmd.ExecuteReader	'Getting error on this line.
        While reader.Read
            Dim item As New ListViewItem(New String() {reader.GetInt32(0), reader.GetString(1), reader.GetString(2), _
                                                      reader.GetString(3), reader.GetString(4), reader.GetString(5), _
                                                      reader.GetDateTime(6), reader.GetInt32(7), reader.GetInt32(8)})
            Me.listView1.Items.Add(item)
            resultFound += 1
        End While
        reader.Close()
        lblStatus.Text = resultFound & " record(s) found!"
        'Me.Close()
Catch ex As Exception
MsgBox(ex.Message)
End Try