MDB (AccessXP) + ADO (MS Jet 4.0) = проблемма с сортировкой

[3ton]

Есть следующий код:

Код: Выделить всё

Public connDB As New ADODB.Connection
Public rs As New ADODB.Recordset
connDB.Provider = "Microsoft.Jet.OLEDB.4.0"
connDB.Open "alexdata.mdb", "admin", ""
rs.Open "select * from allTovar", connDB, adOpenDynamic
rs.Sort = "code_l"
rs.Close
connDB.Close


в строчке (rs.Sort = "code_l") вываливается ошибка:
Run-time error 3251
Current provider does not support the necessary interfaces for sorting or filtering.

НЕ ВЕРЮ!
Может кто подскажет в чем проблема, или как ее обойти?

[Ennor]

Не пробовал писать:
select * from allToVar order by code_l
в строке запроса?

[3ton]

Не пробовал писать:
select * from allToVar order by code_l
в строке запроса?

так-то оно работает, но при каждом изменении критерия сортировки
надо заново откравать recordset, не так-ли, что требует на больших выборках гораздо больше времени чем просто .sort

[Ennor]

В таком случае посмотри, чтобы у тебя CursorType = adClient - клиентский курсор попробуй выставить.

[3ton]

В таком случае посмотри, чтобы у тебя CursorType = adClient - клиентский курсор попробуй выставить.

connDB.CursorLocation = adUseClient

Ура!!! Заработала!

Премного блангодарен!