Ricerca con ToolStripTextBox

Dim firstRow As Integer
Dim dv As DataView

dv = dsAdoSbs.Categories.DefaultView
dv.Sort = "CategoryName"
firstRow = dv.Find(CategoryNameToolStripTextBox.Text)
If firstRow <> -1 Then
bsCategories.Position = firstRow
End If