Private Sub Text1_Change()

On Error Resume Next
    Dim cBuscar As String
    If Text1.Text = "" Then Exit Sub
    cBuscar = "Tarjeta LIKE '%" & Text1.Text & "%'"
    rs.MoveFirst
    rs.Find (cBuscar)
'    End If

End Sub

Private Sub Filtrar_click()
 
    Dim sFiltro As String
    
    If Text1.Text <> 0 Then
       sFiltro = "tarjeta LIKE '%" & Text1.Text & "%'"
    If Len(Trim(sFiltro)) = 0 Then
        cnn.Filter = adFilterNone
    Else
        cnn.Filter = sFiltro
    End If
    cnn.Requery
    Set MSHFlexGrid.Recordset = cnn
    
End Sub