データーベース開発の本を買ってきて、載っていたので

Dim BookName As String

        Bookname = SearchTextBox.Text

        Dim foundIndex As Integer

        foundIndex = BookDataTableBindingSource.Find("書籍名", BookName)

        If foundIndex < 0 Then

            MessageBox.Show("該当するデータがありません。")

        Else

            BookDataTableBindingSource.Position = foundIndex

        End If

    End Sub

と、書いたら出来ました。（書籍名を完璧に入力しないとだめですが・・・）
Filterプロパティを使った処理もやってみたんですが、うまくできませんでした。