_query=_o.ListObjects.Add(0, _source,,, _o.Range("$A$2")).QueryTable 
    With _query
        .CommandType = 2									&&	xlCmdTable=3, xlCmdSql=2
        .CommandText = _cmd
        .RowNumbers = .f.
        .FillAdjacentFormulas = .f.
        .PreserveFormatting = .t.
        .RefreshOnFileOpen = .f.
        .BackgroundQuery = .t.
        .RefreshStyle = 1									&&	xlInsertDeleteCells
        .SavePassword = .f.
        .SaveData = .t.
        .AdjustColumnWidth = .t.
        .RefreshPeriod = 0
        .PreserveColumnInfo = .t.
    ENDWITH
    _query.Refresh()