Visual Basic - Consultar texto por DataGrid

ESTE LO APLICO PARA BUSCAR NUMEROS...PERO EN TEXTO NO FUNCIONA....YA LE CAMBIE EL TRIM...POR LEN...QUE HAGO???

Private Sub txtYahoo_Change()
If Frame2.Caption = "FILTRO POR CEDULA" Then
If txtYahoo <> "" Then
adoCliente.Refresh
adoCliente.Recordset.Filter = "cedula=" & Trim(txtYahoo)
If Not adoCliente.Recordset.EOF Then
Txtcedula1.Text = adoCliente.Recordset!nombres & " " & adoCliente.Recordset!apellidos
Else
adoCliente.Refresh
Txtcedula1.Text = "No Existe Registro"
End If
End If
End If
End Sub

adoCliente.Recordset.Filter = "cedula='" + Trim(txtYahoo) +"'"

NEVER... NO FUNCIONO... BUENO GRACIAS DE TODOS MODOS...OK