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