

Código:
  
 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim bcvend As String
        Dim pos As Integer
        bcvend = Trim(InputBox("Teclee numero de Vendedor", "Busqueda"))
        If bcvend <> "" Then
            pos = VendedorBindingSource.Find("co_ven", bcvend)
            VendedorBindingSource.Position = pos
            If pos < 0 Then
                MsgBox("No se encontro el Registro", MsgBoxStyle.Exclamation, "Busqueda")
            End If
        End If
    End Sub
 
 

 Busqueda por codigo BindingSource
 Busqueda por codigo BindingSource 

