VB6 (32 BIT - 1998) ERRO 3061 - WINDOWS 7 - ACESSO 2007 - EXCEL 2007

Escrevi um programa VB6 que extrai registros de um banco de dados do ACCESS 2007 e os grava em uma planilha do Excel 2007.

O programa funcionou bem e eu usei o exe por vários meses. Então, o caos ficou feliz. Um novo HD de 1GB que eu instalei como "C" cometeu suicídio e desenvolveu um erro permanente. Meu secundário 2 GB "D" também desenvolveu um erro permanente simultâneo. Adeus sistema.

Eu consegui recuperar tudo. Coloque em novos discos rígidos (garantia fornecida a eles). Reinstalado W7, ACCESS 2007, EXCEL 2007 e VB6, todos do CD.

Agora, quando eu corro meu exe VB, me dá erro de execução 3061 - poucos parâmetros - pelo menos 1 era esperado.

O culpado é o select:

Set rs = db.OpenRecordset(Select_str)

A SELEÇÃO CONTÉM:

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"

Eu construo o select dessa maneira:

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

Select_str = ""

'EU CONSTRO ESTE SELECT COM A / PRÓXIMO DA LISTA DE TODOS OS CAMPOS E COLOQUE-OS NA SELEÇÃO.

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$

AS REFERÊNCIAS DO PROJETO SÃO, nesta ordem:

Visual Basic for ApplicationsObjetos e procedimentos de tempo de execução do Visual BasicObjetos e procedimentos do Visual BasicControle ActiveBarBiblioteca de tipos do ActiveExBiblioteca de objetos do Microsoft DAO 3.6Biblioteca de objetos do Microsoft Excel 12.0Biblioteca de objetos do Microsoft Access 12.0Biblioteca de objetos do Microsoft Office 12.0