Public Class TuaForm
  Private bs as BindingSource

  Public Sub Form_Load()
    bs=New BindingSource
    '... Assegna il binding...
  End Sub

  Public Sub TextBox_TextChange()
    bs.Filter="cosa scrivere qui?" '<--- il problema che non so risolvere è questo, bisogna fare una ricerca
  End Sub
End Class