Dim BookName As String

BookName = SearchTextBox.Text

BookDataTableBindingSource.Filter = "書籍名 Like '" & BookName & "%'"