vb querytables.add

Question

在VB的程序中
Public resTESTHEAD As New ADODB.Recordset
....
Set objsheet = objExcel.Worksheets.Add(Before:=Sheets("sheet1"))
  objsheet.Name = item
With objExcel.Worksheets(item).QueryTables.Add(resTESTHEAD, objExcel.Worksheets(item).Range("A1")).Refresh(False)
  End With
一、程序執行到With那句會出錯。
    invalid procedure call or argument
   請問為什麼，該如何修改
二、worksheets.add()當程序第一遍執行時，可以實現，也可循環增加
   並得出結果，但再次未執行程序就會出錯
   the remote server machine does not exist or is unavailable
請各位大俠賜教

Answer 1

大俠幫幫忙
其實我想實現的就是把多個查詢結果放在同一個Excel的不同Sheet中