Excel&ADO&dbf - VB

Формулировка задачи:

может тут кто поможет
При работе в офисе 2002 (XP) программа (на VB) которая из эксель файла вставляла данные в dbf вместо русских букв вставляет знаки вопроса.....(данные вставляются черз АДО)
алгоритм такой, перебираем все строчки на стронице Excel и по одной вставляем в dbf файл
выглядит приблизительно так
insert into table (n,b,v,c,t) select kv, 1, 840, Петров, Цистерна.
так вот то что по русски вставляется...????????? вот таким образом... что делать как победить....
я не особый знаток VB и ADO

Решение задачи: «Excel&ADO&dbf»

textual
                            Листинг программы 
                        
                            <font color="blue">Public</font> <font color="blue">Declare</font> <font color="blue">Function</font> CharToOem Lib <font color="teal">"user32"</font> Alias <font color="teal">"CharToOemA"</font> (<font color="blue">ByVal</font> lpszScr <font color="blue">As</font> <font color="blue">String</font>, <font color="blue">ByVal</font> lpszDst <font color="blue">As</font> <font color="blue">String</font>)