Есть табличка "Клиенты" в формате DBF, кодировка кириллица DOS. Поле FIO содержит данные в виде: ФАМИЛИЯ<пробел>ИМЯ<пробел>ОТЧЕСТВО. Список клиентов нужно вывести на лист в алфавитном порядке. Вот такой код:

Set db = Workspaces(0).OpenDatabase("C:\PATH\T.DBF", False, False, "dBASE IV;")
Set rs = db.OpenRecordset("SELECT T.FIO FROM T ORDER BY T.FIO;")
i = 1
With rs
.MoveFirst
Do While Not .EOF
Cells(i, "A").Value = .Fields("FIO")
i = i + 1
.MoveNext
Loop
End With

выводит вот такой результат:

МАКАРОВА ГАЛИНА ДМИТРИЕВНА
МАКАРОВА ТАТЬЯНА ПЕТРОВНА
МАКАРОВ ИВАН ГЕННАДЬЕВИЧ
МАК ЕЛИЗАВЕТА ГЕНРИХОВНА
МАКСИМОВ АНТОН ВИКТОРОВИЧ
МАКСИМОВ СЕРГЕЙ АНТОНОВИЧ

Почему данные сортируются не в нужном порядке? Должно же быть быть так:

МАК ЕЛИЗАВЕТА ГЕНРИХОВНА
МАКАРОВ ИВАН ГЕННАДЬЕВИЧ
МАКАРОВА ГАЛИНА ДМИТРИЕВНА
МАКАРОВА ТАТЬЯНА ПЕТРОВНА
МАКСИМОВ АНТОН ВИКТОРОВИЧ
МАКСИМОВ СЕРГЕЙ АНТОНОВИЧ

PA, thanks! Завтра изменю этот ключик и отчитаюсь, как сработало.

Все нормально отсортировалось, спасиб еще раз!