Private Sub Button3_Clicked(ByVal sender As System.Object, ByVal e As _
   System.EventArgs) Handles Button3.Click
        Me.ApplyTextboxFilter()
    End Sub
 
    Private Sub FilterTextBox_KeyUp(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.KeyEventArgs) Handles [u]FilterTextBox.KeyUp
        If e.KeyCode = Keys.Enter Then
            Me.ApplyTextboxFilter()
        End If
    End Sub
    Private Sub ApplyTextboxFilter()
        Try
            Me.Tabelle1BindingSource.Filter = _
                String.Format("{0} like '%{1}%'", _
            Me.FilmeDataSet.Tabelle1.TitelColumn.ColumnName,_
            Me.[u]FilterTextBox.Text)
        Catch
        End Try
    End Sub
End Class