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