Return value between range in VB.Net

Hi kana250688,

Refer below sample.

Code

Imports System.Data.OleDb
Imports Dapper

Public Class Form1
    Dim SalaryService As New SalaryService()
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim salaries As IEnumerable(Of Salary) = SalaryService.GetSalary()
        DataGridView1.DataSource = salaries
    End Sub

    Private Sub btnSearch_Click(sender As Object, e As EventArgs) Handles btnSearch.Click
        Dim salaries As IEnumerable(Of Salary) = SalaryService.GetSalary()
        If Not String.IsNullOrEmpty(txtFrom.Text.Trim()) AndAlso Not String.IsNullOrEmpty(txtTo.Text.Trim()) Then
            salaries = salaries.Where(Function(s) s.Salary >= Convert.ToInt32(txtFrom.Text.Trim()) And s.Salary <= Convert.ToInt32(txtTo.Text.Trim())).ToList()
        End If
        DataGridView1.DataSource = salaries
    End Sub
End Class
Public Class Salary
    Public Property Id() As Integer
    Public Property FirstName() As String
    Public Property LastName() As String
    Public Property Salary() As Integer
    Public Property TaxRate() As Integer
End Class
Public Class SalaryService
    Public Function GetOledbConnectionString() As String
        Return "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Range.accdb;Persist Security Info=False;"
    End Function
    Private ReadOnly _conn As OleDbConnection
    Private _connectionString As String = GetOledbConnectionString()
    Public Sub New()
        _conn = New OleDbConnection(_connectionString)
    End Sub
    Public Function GetSalary() As IEnumerable(Of Salary)
        Dim sql = "SELECT Salary.*, TaxRate.TaxRate FROM Salary, TaxRate;"
        Using _conn = New OleDbConnection(GetOledbConnectionString())
            Return _conn.Query(Of Salary)(sql).ToList()
        End Using
    End Function
End Class

Screenshot