Visual Basic - Búsqueda Lenta después de X tiempo

Todo funciona muy bien. Sin embargo si dejo de usar el programa por 5 o10 minutos al volver y consultar algo, se vuelve lenta, se demora 1 minuto y la busqueda es a una tabla con 160 reg.
Leí por ahí que al colocar el CursorLocation en adUseClient (La documentación no dice nada al respecto)lo hace lento tambien que en el Options sumarle el... adAsyncFetch (Este último lo probé y no noté la diferencia)
También, coloco el filter antes de abrir el objeto ésto lo analicé yo y creia q esto funcionaba pero no sé.

VB6SP6 y Access 2003

vInSQL = "SELECT Nombre, NoHistoria, Identificacion FROM Usuarios ORDER BY " & vGbBuscarPor
With vInRecordset
.CursorLocation = adUseClient
.Filter = vGbBuscarPor & IIf((vGbBuscarCompleto = True), (" = '" & Trim(TextoConsulta.Text) & "'"), (" LIKE '*" & Trim(TextoConsulta.Text) & "*'"))
.Open vInSQL, vGbConexionBD, adOpenForwardOnly, adLockReadOnly, adCmdText
If .RecordCount = 0 Then
VentanaConsultaLabel1(0).Visible = True
Else
vLcConsultaCantidad = IIf((.RecordCount >= 15), 14, .RecordCount - 1)
End If
.Close
End With

Yo no suelo utilizar el metodo Filter, más bien porque no lo haces directamente con unobjeto command pasandolo a un recordset.

Saludos.

Yo no suelo utilizar el metodo Filter, más bien porque no lo haces directamente con unobjeto command pasandolo a un recordset.

Saludos.