البحث باستخدام Rich Box - نسخة قابلة للطباعة

كود :
Imports System.Data.OleDb



Public Class Form1



    ' جملة الربط

    Dim con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Code.accdb")



    Dim da As New OleDbDataAdapter ' جدول مصدر المعلومات 



    Dim dt As New DataTable        ' مكان التخزين



    Sub Load_Data()

        dt.Clear()

        da = New OleDbDataAdapter("Select * From Table1", con)

        da.Fill(dt)

    End Sub

    Sub save_Data()

        Dim save As New OleDbCommandBuilder(da)

        save.QuotePrefix = "["

        save.QuoteSuffix = "]"

        da.Update(dt)

        dt.AcceptChanges()

    End Sub



    ' جملة تحميل الجدول الي الداتا جريد فيو



    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Load_Data()

        DataGridView1.DataSource = dt



    End Sub



   



    ' كود الحذف

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        dt.Rows(BindingContext(dt).Position).Delete()

      

    End Sub



    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

        save_Data()

    End Sub



    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Me.Close()

    End Sub



    Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged

        Try

            Dim names As New List(Of String)

            For Each i In RichTextBox1.Lines

                names.Add("'" & i & "'")

            Next

            Dim sql As String = "Select * From [Table1] WHERE [Name] IN (" & String.Join(",", names) & ") "

            dt.Clear()

            da = New OleDbDataAdapter(sql, con)

            da.Fill(dt)

        Catch ex As Exception

        End Try

    End Sub



    Private Sub RichTextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox2.TextChanged

        Try

            Dim salary As New List(Of String)

            For Each i In RichTextBox2.Lines

                salary.Add(i)

            Next

            Dim sql As String = "Select * From [Table1] WHERE [salary] IN (" & String.Join(",", salary) & ") "

            dt.Clear()

            da = New OleDbDataAdapter(sql, con)

            da.Fill(dt)

        Catch ex As Exception

        End Try

    End Sub

End Class