Кодировка данных из dbf

[Luzin]

Подключил dbf из VB 6.0

CnDBF.ConnectionString = "DSN=Файлы dBASE"

CnDBF.Open

CnDBF.DefaultDatabase = "D:\1\"

rsDBF.Open "table.DBF", CnDBF


rsDBF.Filter = "Code = 12"


S = rsDBF.fields("Name").Value

А в S

содержить типо: ‚Z‘’Z—?Z-‘????‘S?‰ ???S ‘?…????S? ?”

OemToCharBuff и CharToOEMBuff не помогают. Надовнуть человеческий текст.

[GSerg]

Зело похоже на юникод.
Может, strconv?

[Luzin]

Попробовал (vbFROMUnicode, vbUnicode)не помогло.
Попробовал открыть через Visual FoxPro, тот попросил указать кодировку выбрал MSDOS(866), стало отрображать нормально.
А мне желательно без преобразования.