Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button3.Click
 
        Dim Filter As String
        Filter = Me.ComboBox1.Text + " LIKE '" + Me.TextBox1.Text + "'"
        DV1.RowFilter = Filter
 
    End Sub

VB@rchiv its the Best