Медленно, происходит замена символа в колонке Excel-файла программой из VB6

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

Извините короче не получается!
Excel-евский файл создаю так:

xl.Application.ScreenUpdating = False
xl.Cells(, ).CopyFromRecordset rst  ' информация со следующей строки, первая строка шапка

если не менять значения в колонке, Книга1.xls появляется на экране за секунд ( супер )
но мне надо заменить запятую на точку по всей колонке Excel-файла из VB6
потому что в этом 9-том столбце пользователь будет получать разные суммы, а с запятой они не считаются.
Решаю установить во всей колонке формат:

xl.Columns().
xl.Selection.NumberFormat = 

всё равно не помогло. Excel-файл не считает суммы.
Тогда делаю цикл, а он работает медленно

RowMax:	RowMax = xl.ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
 i  
 summa  
 i =   RowMax
     summa = xl.Cells(i, )	
     summa = Replace(summa, Chr(), , , , vbTextCompare)	
     xl.Cells(i, ) = Val(summa)

xl.Visible = True
xl.Application.ScreenUpdating = True

работает минут ~ 5 ( а у пользователя комп вообще тормоз )

Решение задачи: «Медленно, происходит замена символа в колонке Excel-файла программой из VB6»

textual
                            Листинг программы 
                        

                            <font color="blue">Dim</font> db <font color="blue">As</font> ADODB.Connection:     <font color="blue">Set</font> db = <font color="blue">New</font> ADODB.Connection
    <font color="blue">Dim</font> t1 <font color="blue">As</font> ADODB.Recordset:      <font color="blue">Set</font> t1 = <font color="blue">New</font> ADODB.Recordset
    db.ConnectionString = <font color="teal">"DRIVER={Microsoft Excel Driver (*.xls)};"</font> & <font color="teal">"DBQ="</font> & pth & <font color="teal">"\"</font> & xls & <font color="teal">";"</font> & <font color="teal">"DefaultDir="</font> & pth
    db.<font color="blue">Open</font>
    t1.<font color="blue">Open</font> <font color="teal">"SELECT F1, F2, F5, F8, F13, F14, F15, F16, F17 FROM ["</font> & lst & <font color="teal">"$]"</font> & <font color="teal">" WHERE (((Sheet1$.F1) Is Not Null) AND ((Sheet1$.F15)>0))"</font>, db
                        