Выполнение в фоновом режиме - VB

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

Добрый день.
Есть небольшой код который обращается из xls в SQL server получает данные и после этого обновляет сводную таблицу в xls.
Подскажите как этот процес запусть в фоновом режиме что бы xls файл ен зависал. :(

CommandButton1_Click()

 cnn = CreateObject()
     rst = CreateObject()
    cnn. 
    
    cnn.CommandTimeout = 

 Range().Value =  
    
    rst.  & Format(Range().Value, ) &  & Format(Range().Value, ) & , cnn

    rst.  & Format(Range().Value, ) &  & Format(Range().Value, ) &  & Range().Value & , cnn

    Range().
    Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False
    
    cnn.
     rst = 
     cnn = 

Решение задачи: «Выполнение в фоновом режиме»

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