использую макрос

Worksheets("1").Activate
Range("A2:Z2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Selection.CopyFromRecordset objRst
objRst.Close

вместо этого
18 6 1 Радчук Ірина Сегріївна
22 2 1 Шеметов Вячеслав не знает
45 13 3 Ямщикова Наталія Олегівна
18 6 1 Радчук Ірина Сегріївна
22 2 1 Шеметов Вячеслав не знает
45 13 3 Ямщикова Наталія Олегівна
18 6 1 Радчук Ірина Сегріївна
22 2 1 Шеметов Вячеслав не знает
45 13 3 Ямщикова Наталія Олегівна

получаю это
18 6 1 ?????? ????? ?????????
22 2 1 ??????? ???????? ?? ?????
45 13 3 ???????? ??????? ????????
18 6 1 ?????? ????? ?????????
22 2 1 ??????? ???????? ?? ?????
45 13 3 ???????? ??????? ????????
18 6 1 ?????? ????? ?????????
22 2 1 ??????? ???????? ?? ?????
45 13 3 ???????? ??????? ????????

докопался))
надо делать кодировку
использовать следующий ряд запросов, которые должны выполняться после каждого коннекта к базе:

mysql_query("SET NAMES 'cp1251'");
mysql_query("SET CHARACTER SET 'cp1251'");