Private Sub txt_descripcion_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txt_descripcion.TextChanged
Try
Dim Datos As New DataView
Dim MiDataset As New DataSet
'Datos.Table = MiDataset
Dim Buscar As String = String.Empty
Buscar = "rhperape1 LIKE '" & Me.txt_descripcion.Text & "%'"
Datos.RowFilter = Buscar
Me.DataGridView1.DataSource = Datos
Me.DataGridView1.Update()
Catch ex As Exception
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK)
End Try
End Sub