Кодировка в XL при SQL запросе к базе MySQL - VB

Доброго всем времени суток. Господа программеры, помогите мудрым советом. Суть проблемы в следующем. Пишу на 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
....