Hi Experts

How to do stop refreshing data. Im using Excel 2007
Here is the coding,
With ActiveWorkbook.Connections("BillGate").OLEDBConnection
.BackgroundQuery = False
.CommandText = Array("Table1")
.CommandType = xlCmdTable
.Connection = Array( _
"OLEDB;Provider=Microsoft.ACE.OLEDB.12.0;User ID=User01;Data Source=C:\Documents and Settings\Desktop\BillGate.accdb" _
, _
";Mode=Share Deny Write;Extended Properties="""";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:En" _
, _
"gine Type=6;Jet OLEDB:Database Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB" _
, _
":New Database Password="""";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Locale on" _
, _
" Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False;Jet OLEDB:Support Complex Data=False" _
)
.RefreshOnFileOpen = True
.SavePassword = False
.SourceConnectionFile = ""
.ServerCredentialsMethod = xlCredentialsMethodIntegrated
.AlwaysUseConnectionFile = False

End With
With ActiveWorkbook.Connections("BillGate")
.Name = "BillGate"
.Description = ""
End With

ActiveWorkbook.Connections("BillGate").Refresh
When I try to get external data from access the excel prompt me error @ the refresh coding. Then after I tried to debug/end it the CPU rate when up to 50%. I realized that the coding is refreshing the data.

Pls advise the correct way of doing it and how can I cancel this refresh.