كيف اعدل على الكود ليبحث عن نتيجة اخرى(البحث في مربع نص)

كود :
Imports System.Data.OleDb

Public Class Ar_Fr8

    Dim cn As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath & "\Data.accdb;Persist Security Info=False;")

    Dim ds As New DataSet

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        If RadioButton1.Checked = True Then

            Dim da As New OleDbDataAdapter("Select * from report where Re_Carno = '" & TextBox1.Text & "'", cn)

            da.Fill(ds, "report")

            DataGridView1.DataSource = ds.Tables("report")

        ElseIf RadioButton2.Checked = True Then

            Dim da As New OleDbDataAdapter("Select * from report where Re_No = '" & TextBox3.Text & "'", cn)

            da.Fill(ds, "report")

            DataGridView1.DataSource = ds.Tables("report")

        ElseIf RadioButton3.Checked = True Then

            Dim da As New OleDbDataAdapter("Select * from report where Re_Date = '" & TextBox2.Text & "'", cn)

            da.Fill(ds, "report")

            DataGridView1.DataSource = ds.Tables("report")

        ElseIf RadioButton4.Checked = True Then

            Dim da As New OleDbDataAdapter("Select * from report where Re_Warrenty = '" & TextBox4.Text & "'", cn)

            da.Fill(ds, "report")

            DataGridView1.DataSource = ds.Tables("report")

        End If

        TextBox1.Clear()

        TextBox2.Clear()

        TextBox3.Clear()

        TextBox4.Clear()

    End Sub



    Private Sub Ar_Fr8_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        cn.Open()

    End Sub



    Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton1.CheckedChanged

        If RadioButton1.Checked = True Then

            TextBox1.Enabled = True

        ElseIf RadioButton1.Checked = False Then

            TextBox1.Enabled = False

        End If

    End Sub



    Private Sub RadioButton3_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton3.CheckedChanged

        If RadioButton3.Checked = True Then

            TextBox2.Enabled = True

        ElseIf RadioButton3.Checked = False Then

            TextBox2.Enabled = False

        End If

    End Sub



    Private Sub RadioButton2_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton2.CheckedChanged

        If RadioButton2.Checked = True Then

            TextBox3.Enabled = True

        ElseIf RadioButton2.Checked = False Then

            TextBox3.Enabled = False

        End If

    End Sub



    Private Sub RadioButton4_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton4.CheckedChanged

        If RadioButton4.Checked = True Then

            TextBox4.Enabled = True

        ElseIf RadioButton4.Checked = False Then

            TextBox4.Enabled = False

        End If

    End Sub

End Class