Dim Search As BindingSource = SearchDataTableBindingSource Search.Filter = "書籍名 like '%" & SearchTextBox.Text & "%'" MessageBox.Show(Search.Filter)