CONCATENAR VARIOS REGISTROS NUMA MESMA CELULA GRID

Citação:

:
Depois do seu MOVENEXT, veja se é EOF, se for, retira alí o seu ponto inserido na linha acima, VC pode pegar o LEN da variável, e depois pegar o mid deste LEN de 1 até o LEN-1 (por exemplo, já que na última posição ficará a virgula)

RS2.MoveNext
if rs2.eof then 
  var_COMP = len(var_COMP) -1
Loop

Citação:

:
bom a solução para tirar a virgula do final

var_COMP = Mid(var_COMP, 1, Len(var_COMP) - 1)

bom bastca colcoar isto depois do loop

Set RS2 = BD.OpenRecordset(SQL2)
    
    Do While Not RS2.EOF
    var_COMP = var_COMP & RS2!MODELO & [Ô]/[Ô] & RS2!ANO & [Ô],[Ô]
    RS2.MoveNext
    Loop

var_COMP = Mid(var_COMP, 1, Len(var_COMP) - 1)