Error al hacer filtro en datagrid

[Agomezs]

Hola necesito ayuda... pues les explico, estoy utilizando un datagrid para mostrar algunos datos de dos tablas, y hay un textbox para q el usuario ingrese algo, lo que intento hacer es un filtro que vaya mostrando la busqueda de lo que el usuario va escribiendo y es ahi donde me da el error en la parte del Text1_Change(). El error que genera es " '3265' en tiempo de ejecucion: No se encontró el elemento en la coleccion que corresponde con el nombre o el ordinal pedido."

Les mando todo lo que tiene el formulario para q chequen

Option Explicit
Dim WithEvents rs As Recordset
Dim mbdatachanged As Boolean

Private Sub Form_Load()
Dim cn As Connection
Set cn = New Connection
cn.CursorLocation = adUseClient
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\TELECOM.mdb"
Set rs = New Recordset
rs.Open "Select LINEAS.FICHA, LINEAS.NUMERO, GENERALES.NOMBRE, GENERALES.A_PATERNO, GENERALES.A_MATERNO FROM LINEAS LEFT JOIN GENERALES ON
LINEAS.FICHA = GENERALES.FICHA", cn, adOpenStatic, adLockOptimistic
Set DataGrid1.DataSource = rs
mbdatachanged = False
End Sub

Private Sub Text1_Change()
If Text1.Text <> "" Then
rs.Filter = "LINEAS.Ficha like " & "'*" & Text1.Text & "*'" aqui aparece el error!
End If
End Sub

Espero me puedan ayudar... muchisimas gracias

[Insomnia]

Hola

Para empezar cambia el símbolo del * por el de %, a ver si de esa forma te funciona.

De todas formas yo suelo:
1.- cerrar el recordset
2.- volver a construir el .Source del Recordset, es decir, vuelvo a generar la select teniendo en cuenta lo introducido por el usuario
3.- Abrir el Recordset (.Open)
4.- Volver a pasarle el DataSource y refrescar
Set .DataSource = Reg
.Refresh

--Saludos--

[Agomezs]

Eso ya lo intente pero no me sale... sigue marcando el mismo error... supuse q podia ser xq un campo de cada tabla se llama igual, le cambie el nombre y nada... sigue el mismo error!