نمایش اطلاعات در دیتا گرید با select و پارامتر دهی

سلام دوستان این دستورات با پارامتر دهی چطور میشه؟

Dim da as OleDbDataAdapter = New OleDbDataAdapter("SELECT * from csd where name like '%" + (txtsname.Text.Trim) + "%'", con)

Dim ds As DataSet = New DataSet

        da.Fill(ds, "csd")

        DataGridView1.DataMember = "csd"

       DataGridView1.DataSource = ds  

شبیه این 

("SELECT * from csd where (name) like'%" @name "%'"

       cm.Parameters.Add("@name",txtsname.Text.Trim)

تشکر میکنم

یعنی کسی جوابشو نمیدونه؟؟!!
برم توی سایت خارجیها بگردم