検索ボタンのクリックイベント Dim BookName As String BookName = SearchTextBox.Text BookDataTableBindingSource.Filter = "書籍名 Like 'BookName'"