Ошибка при сортировке

[Chikanog]

Всем доброго времени суток!
Прошу помощи!

Заполняю форму данными из Recordset'a.
При попытке отсортировать данные (правый клик по столбцу) вылетает ошибка.

DIM UnbRecodset AS New ADODB.Recordset
DIM rst AS ADODB.Recordset
 
DIM cnn AS ADODB.Connection
Set cnn = CurrentProject.Connection
 
 
DIM nn2_ AS STRING
DIM i AS LONG
DIM j AS LONG
 
Set rst = New ADODB.Recordset
rst.CursorType = adOpenDynamic
rst.CursorLocation = adUseClient
rst.LockType = adLockOptimistic
 
rst.OPEN "Select * From [Таблица]", cnn
 
    With UnbRecodset
        With .Fields
            .APPEND "Поле1", adVarChar, 3
            .APPEND "Поле2", adVarChar, 3
        END With
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .OPEN
    END With
 j = 1
 FOR i = 1 TO 100
  UnbRecodset.AddNew
   nn2_ = Format(i, "000")
   UnbRecodset("Поле1") = nn2_
  IF nn2_ = rst("Поле1") THEN
   
   UnbRecodset("Поле2") = rst("Поле2")
   
   IF rst.RecordCount = j THEN
   ELSE
    rst.MoveNext
    j = j + 1
   END IF
  ELSE
   UnbRecodset("Поле2") = "0"
  END IF
  UnbRecodset.UpdateBatch
 NEXT i
  Set Me.myfind3.Form.Recordset = UnbRecodset
rst.CLOSE
Set cnn = Nothing

[Teslenko_EA]

Здравствуйте Chikanog.
"заставлять" JET заниматься сортировкой независимо созданного ADO рекордсета - занятие "неблагодарное", проще создать собственную сортировку.
Евгений.

[Chikanog]

Спасибо огромное за совет!
Данный пример лишь маленький кусочек базы, в которой всё сортируют JET'ом... Привыкли люди...
Но все равно спасибо! Что-нибудь придумаю! =)