QueryTables问题

我在Excel抽取SQL的资料出来，用了以下语句
ActiveSheet.QueryTables.Add(Connection:=connstring, Destination:=Range("A1"), Sql:=sqlstring).Refresh
然后想在查询出来的结果删除某一列，但执行之后，都是先删除了某一列再出现查询结果，请问有什么办法呢? --------------------编程问答-------------------- ding

补充：VB ,  VBA