سوال سرچ چند کلمه

[HRC123]

سلام من کلی دنبال این می گشتم که تو یه تکست باکس یه جمله رو بنویسم و تو دیتا بیسم اون رو سرچ کنه یه جورایی مثل این که چند کلمه رو بنویسم و کلمه ها رو سرچ کنه و بهم یه جوابی بده گشتم تابه یه مطالبی رسیدم و کد زیر رو نوشتم ولی وقتی می خواد اطلاعات رو فیل کنه ارور می ده می شه مشکلشو بهم بگید:عصبانی++::گریه:


Dim con As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;data source=C:\Users\HRC\Documents\Visual Studio 2008\Projects\WindowsApplication1\DataBase\proje.m db")
Dim sql AsString
Dim strtext AsString = TextBox2.Text
sql = "select * from pu where karyiieproje like" + "'" + TextBox2.Text + "'"
Dim delim AsChar() = {" "c}
Dim strArr AsString() = strtext.Split(delim)
ForEach s AsStringIn strArr
sql = sql + " or TextBox2.Text like '%" + s + "%'"
Next s
Dim ds AsNew DataSet
DataGridView1.AutoGenerateColumns = True
DataGridView1.DataBindings.Clear()
Dim da As OleDbDataAdapter = New OleDbDataAdapter(sql, con)
con.Open()
da.Fill(ds, "pu")
con.Close()
DataGridView1.DataSource = ds
DataGridView1.DataMember = "pu"