Доброго всем времени суток. Господа программеры, помогите мудрым советом. Суть проблемы в следующем. Пишу на VBA под XL. Подключаюсь к базе MySQL через XL. Вытягиваю данные в неправильной кодировке сикарашки короче на листе в Экселе. Даю запрос в MySQL выводит русский шрифт нормально. КАк в VBA указать кодировку. Кусок кода таков:

Dim test As New ADODB.Connection
Dim rs As New ADODB.Recordset

Set test = New ADODB.Connection

test.Open "Driver={MySQL ODBC 5.1 Driver};Server=localhost;DATABASE=test;" & _
"User=root;Password=root;PORT=3306;OPTION=3;"
test.CursorLocation = adUseClient

rs.Open "select kod, f, i, o, inn from exam" & _
" where kod='some_code'", test, adOpenStatic, adLockBatchOptimistic, adCmdText
rs.ActiveConnection = Nothing

ActiveSheet.Range("A2").CopyFromRecordset rs
ActiveSheet.Columns("A:I").AutoFit
....

Ну я так предполагаю, что дето здесь надо копать:

test.Open "Driver={MySQL ODBC 5.1 Driver};Server=localhost;DATABASE=test;" & _
"User=root;Password=root;PORT=3306;OPTION=3;" задать мож надо параметр.

Вот короче, как я файл подгружал в XL:
path_to_f = "TEXT;" & path_to_f & file_name_f

Range(dest).Select

With ActiveSheet.QueryTables.Add(Connection:=path_to_f, Destination:=Range(dest))
....
.TextFilePlatform = 866 // кодировка
.TextFileStartRow = 1
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
.....

End With

Думаю з запросом таже байда, тока пока не могу найти инфы!!!!

Ok. Пасиба за ответы. Попробую ...