[Resolvido]RecordSet baseado em variavel

Boa Noite a todos!

Tenho pouca experiência com VBA

Estou usando um código do mestre Avelino para exportar para um arquivo do word, mas está dando erro na parte que preenche uma tabela quando tento atribuir uma variável nesta parte do código:

     strsql = "SELECT COD,NOMES,ID,CPF,AG,CTA_CORRENTE FROM TB_SIAFE_ASPLAN_SUB "
     strsql = strsql & "WHERE COD = 2;"      <<<<< Se eu escrevo o valor do campo COD nesta linha, funciona normalmente:

     Set rs = CurrentDb.OpenRecordset(strsql, 8)

     Do While Not rs.EOF
   
         With .ActiveDocument.Tables(1)
             With .rows.Last
                 .Cells(1).Range.Text = rs!NOMES
                 .Cells(2).Range.Text = rs!ID
                 .Cells(3).Range.Text = rs!CPF          'Format(rs!ValorDoc, "Currency")
                 .Cells(4).Range.Text = rs!AG
                 .Cells(5).Range.Text = rs!CTA_CORRENTE
             End With
             rs.MoveNext
            If Not rs.EOF Then .rows.Add
         End With
     Loop
     rs.Close
     Set rs = Nothing

Mas se tento usar a variável, que é um campo numérico no form da erro:
     Dim INDICE
     INDICE = Me.COD

     strsql = "SELECT COD,NOMES,ID,CPF,AG,CTA_CORRENTE FROM TB_SIAFE_ASPLAN_SUB "
     strsql = strsql & "WHERE COD = INDICE;"


O erro ocorre nesta linha:
Set rs = CurrentDb.OpenRecordset(strsql, 8)

Erro 3061
Parâmetros insuficiêntes. Eram esperados 1.

Desde já agradeço pela ajuda

Bom dia Elias,

Você não pode misturar string (textos) com variáveis ao escrever o código, deve separá-las com "&".

strsql = strsql & "WHERE COD=" & INDICE

Espero que ajude.

Muito obrigado, Livio!

Agora funcionou perfeitamente.

Vou continuar estudando o VBA

Obrigado pelo retorno. O fórum agradece!