[سعود]

جرب المثال التالي:

كود :

Public Class Form1
   Dim con As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=|datadirectory|\db.accdb")
   Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
       If con.State = ConnectionState.Closed Then con.Open()
       Dim dt As DataTable
       For Each h As String In TextBox1.Text.Split(" ")
           Using da = New OleDb.OleDbDataAdapter("select * from tb where tname like'%" & h & "%'", con)
               dt = New DataTable
               da.Fill(dt)
               ListBox1.DataSource = dt
               ListBox1.DisplayMember = "tname"
           End Using
       Next
   End Sub
End Class

انظر لجملة الاستعلام  وانظر قبلها لعبارة

كود :

 For each h in textbox1.text.split(" ")

جملة الاستعلام ونتيجة For في هذا الكود  هي التي تحدد النتيجة.

---

انظر للمثال بعد التعديل وهي فقط جزئية الاستعلام
انظر للمرفق ليست تماما  مثل الكود اعلاه.