Добрый день!
При открытии RecordSet выдается сообщение
"Выбранная последовательность сортировки не поддерживается операционной системой"
ПО (WinXP,Access2007)
Подскажите, пожалуйста, чем ошибка и как её обойти?!

Dim ConnSklad As ADODB.Connection
Dim rsSklad As ADODB.Recordset
Set ConnSklad = CreateObject("ADODB.Connection")
ConnectionStringSklad = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & НадписьПутьСклад.Caption & ";Mode=Share Deny None;Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"";Persist Security Info=False;"
ConnSklad.Open ConnectionStringSklad
Set rsSklad = New ADODB.Recordset
Set rsSklad.ActiveConnection = ConnSklad
rsSklad.CursorType = adOpenKeyset
StrSklad = "Select * from [Лист1$] WHERE [" + ПолеСкладНаименование.Value + "]<>'' ORDER BY [" + ПолеСкладНаименование.Value + "],[" + ПолеСкладПроизводитель.Value + "]"

rsSklad.Open (StrSklad) - !!!ошибка!!!

"Select * from [Лист1$] WHERE [наименование]<>'' ORDER BY [наименование],[Бренд]"

да

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

это не помогло...
извратился так:
поставил обработчик ошибок On Error GoTo Err_

Err_:
If Not ConnSklad Is Nothing Then
If ConnSklad.Errors.Count Then
If ConnSklad.Errors(0).Number = -2147467259 And ConnSklad.Errors(0).NativeError = -329323426 Then Resume
End If
End If

MsgBox Err.Description, vbCritical