В приложении MS Excel на VBA выполняется следующий запрос. На время обращения к БД происходит подвисание приложения так, что ничего больше делать нельзя ни в Word, ни в Excel, ни в Outlook до тех пор, пока не будет завершен метод Execute. Можно ли сделать этот процесс фоновым?  
 
Set conn = CreateObject("ADODB.Connection")  
Set rs = CreateObject("ADODB.Recordset")  
conn.Provider = "SQLOLEDB.1"  
conn.ConnectionTimeout = SQL_ConnectionTimeout  
conn.CommandTimeout = SQL_CommandTimeout  
conn.ConnectionString = "Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=DB1;Data Source="Server1"  
conn.Open  
Set rs = conn.Execute("select * from table1" )  
...  
rs.close  
conn.Close