With ActiveSheet.QueryTables.Add( _
  Connection:=strCnnString, _
  Destination:=Range("A1"), _
  Sql:="SELECT * FROM TABLE")
    .Name = "Contact List"
    .FieldNames = True
    .RowNumbers = False
    .FillAdjacentFormulas = False
    .PreserveFormatting = True

     ' Автоматически обновление при открытии
     ' рабочей книги (чтение/запись).
    .RefreshOnFileOpen = True

    .BackgroundQuery = True
    .RefreshStyle = xlInsertDeleteCells
    .SavePassword = True
    .SaveData = True
    .AdjustColumnWidth = True

    ' Возвращает или устанавливает интервал
    ' в минутах перед обновлением.
    .RefreshPeriod =  0 

    .PreserveColumnInfo = True
    .Refresh BackgroundQuery:=False
End With