Visual Basic

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

 Try
            DBConnection.connect() 'code to open database.
            Dim sql As String = "update MortgageDetails set [Borrower_Name]='" & txtBorrowerName.Text & "', [Caste]='" & txtCaste.Text & "', " & _
"[Area]='" & txtArea.Text & "', [Address]='" & txtAddress.Text & "', [Product_Detail]='" & txtProductDetail.Text & "', " & _
                                "[Current_Date]='" & txtCurrentDate.Text & "',[Current_Value]=" & txtProductValue.Text & "," & _
                                "[Amount_Borrowed]=" & txtAmountBorrowed.Text & " where [S_No]=" & txtSNo.Text

            Dim cmd As New OleDbCommand(sql, con)
            cmd.ExecuteNonQuery()
            MsgBox("Record Updated!", MsgBoxStyle.Information)
            Me.Close()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try