数据导出报错！！

If MsgBox("Export to EXCEL?", vbOKCancel, "提示") = 1 Then
      Set xlApp = CreateObject("Excel.Application")
    Set xlBook = Nothing
    Set xlSheet = Nothing
    Set xlBook = xlApp.Workbooks().Add
    Set xlSheet = xlBook.Worksheets("sheet1")
    xlApp.Visible = True
Dim sSQL As String
    sSQL = "SELECT dbo.[invoice-line].*, dbo.invoice.[Invoice-date] AS [Invoice-date],dbo.invoice.[Cust-no] AS Expr1, dbo.customer.Name AS Expr2,dbo.invoice.[Cust-po] AS Expr3 FROM dbo.invoice INNER JOIN dbo.[invoice-line] ON dbo.invoice.[DB-ID] = dbo.[invoice-line].[DB-ID] AND dbo.invoice.Document = dbo.[invoice-line].Document INNER JOIN dbo.customer ON dbo.invoice.[DB-ID] = dbo.customer.[DB-ID] AND dbo.invoice.[Cust-no] = dbo.customer.[Cust-no] WHERE (dbo.[invoice-line].[DB-ID] = '" & Trim(Me.Combo1.Text) & " ') AND (dbo.invoice.[Invoice-date] >= '" & Me.DTPicker1.Value & " ') AND (dbo.invoice.[Invoice-date] <= '" & Me.DTPicker1.Value & "')"
    With ActiveSheet.QueryTables.Add(Connection:= _
        "ODBC;DSN=jiangxm;UID=sa;PWD=sa;", Destination:=Range("A1"))
        .CommandText = sSQL
        .Refresh BackgroundQuery:=False
    End With
    xlApp.Application.Visible = True
   
    
    Set xlApp = Nothing  '"交还控制给Excel
    Set xlBook = Nothing
    Set xlSheet = Nothing    End If我用以上程序将SQL的数据导入EXCEL，为什么在第二次执行的时候会报错！
实时错误“1004”
对象“RANGE”的方法，“_GLOBAL”失败！
这是怎么回事？而且还会跳出ODBC框