QureyTablesのエラーについて

へなちょこ 2003-10-10 01:44:03 No: 79737

開発マシンでは何も無かったのですが、
客先でこけてしいました。
なんとか、宜しくお願いします。
QureyTablesのRefreshで強制終了させられているみたいです。
原因がわかりません。
実際のコードです。
C_CONNECT_STRING_01の中身は、"DSN=test;UID=testuser1;PWD=test;DATABASE=testdb1;"

    '/* SQL作成 */
    sSql = "EXEC GET_FSHIIRE '" & M_sSihcd & "'," & M_nSihsymd _
                        & "," & CStr(nSql) & "," & CStr(nUri)

    '/* SQL実行 */
    With Worksheets("集計用").QueryTables.Add(Connection:="ODBC;" & C_CONNECT_STRING_01, Destination:=Worksheets("集計用").Range("A1"))
        .Sql = Array(sSql)
        .FieldNames = True
        .RowNumbers = True
        .PreserveFormatting = True
        .BackgroundQuery = False
        .Refresh
    End With
この記事にはVBAのコードが含まれています。