

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


