VB6 (32 BIT - 1998) ОШИБКА 3061 - WINDOWS 7 - ДОСТУП 2007 - EXCEL 2007

Я написал программу VB6, которая извлекает записи из базы данных ACCESS 2007 и записывает их в лист EXCEL 2007.

Программа работала нормально, и я использовал exe в течение нескольких месяцев. Затем произошел хаос. Новый 1GB HD я установил как "C" покончил жизнь самоубийством и развил постоянную ошибку. Мой вторичный 2 ГБ "D" также разработал одновременную постоянную ошибку. Пока пока система.

Я был в состоянии восстановить все. Вставьте новые жесткие диски (предоставляется гарантия). Переустановил W7, ACCESS 2007, EXCEL 2007 и VB6, все с CD.

Теперь, когда я запускаю свой VB exe, выдает ошибку времени выполнения 3061 - слишком мало параметров - как минимум 1 ожидался.

Виновником является выбор:

Set rs = db.OpenRecordset(Select_str)

ВЫБОР СОДЕРЖИТ:

SELECT
    HORA,
    ARL,
    ARL_ECON,
    ESTADO_OPE,
    EST_REMUN,
    ENERGIA,
    POT_DISP,
    POT_RECORTADA,
    PIND,
    PINDFORZ,
    CGN,
    CGO,
    CFO,
    CCM,
    PRECIO_NODO,
    PR_REM_ENERGIA,
    SCTD,
    SCO,
    COSTO_406,
    COMPRA_SPOT,
    POT_DISP_RESERVA,
    POT_DISP_GAS,
    GAS_NOMINADO,
    REM_ADICIONAL,
    REM_ADIC_TOTAL,
    DESP_ECON,
    PGENE_COMP_446,
    REM_ADIC_COMP_446,
    REM_GAS_6866,
    REMUN_ADIC_6866,
    POT_DISP_ACD
FROM VALORES_GENERADORES
WHERE GRUPO = "XXXXXX"

Я строю выбор так:

BeguinSelectString$ = "SELECT HORA, "
DE$ = " FROM "
Donde$ = " WHERE GRUPO = " + Chr(34)
FinDelSelect$ = Chr(34) + " "

Select_str = ""

 Я СОЗДАЮ ЭТО ВЫБОР С ЗАПРОСОМ / СЛЕДУЮЩИМ, ЧТОБЫ СПИСОК ВСЕХ ПОЛЕЙ И ПОСТАВИТЬ ИХ В ВЫБОР

Select_str = BeguinSelectString$

For i = 0 To (Max_Index_de_Records_1 - 1)

    Select_str = Select_str + Nombres_de_Campos_1(i) + ", "

Next i

    Select_str = Select_str + Nombres_de_Campos_1(Max_Index_de_Records_1) ' I INSERT THE LAST FIELD WITHOUT THE COMMA, ELSE IT GIVES AN ERROR

    Select_str = Select_str + _
             DE$ + _
             Tabla + _
             Donde$ + _
             sNombre_del_Grupo + _
             FinDelSelect$

Ссылки на проект находятся в следующем порядке:

Visual Basic для приложенийVisual Basic объекты и процедуры времени выполненияVisual Basic объекты и процедурыЭлемент управления ActiveBarБиблиотека типов ActiveExБиблиотека объектов Microsoft DAO 3.6Библиотека объектов Microsoft Excel 12.0Библиотека объектов Microsoft Access 12.0Библиотека объектов Microsoft Office 12.0