Select

Set TbResumo = New ADODB.Recordset
If TbResumo.State = 1 Then TbResumo.Close
With TbResumo
.CursorType = adOpenStatic
.CursorLocation = adUseClient
.LockType = adLockPessimistic

 .Source = "SELECT DadosCT.Cliente,IIf(Len([DadosCT].[Numero])>4,Left([DadosCT].[Numero],Len([DadosCT].[Numero])-2),[DadosCT].[Numero]) AS Contrato FROM DadosCT GROUP BY IIf(Len([DadosCT].[Numero])>4,Left([DadosCT].[Numero],Len([DadosCT].[Numero])-2),[DadosCT].[Numero]),DadosCT.Cliente;"
 .ActiveConnection = BancoSobra
 .Open
 If .BOF = True And .EOF = True Then Exit Sub

 Grid.Rows = .RecordCount + 1
 'Row = 0
 Do Until .EOF = True
 Row = Row + 1
 Grid.Col = 0

 Grid.Row = Row
 Grid.TextMatrix(Row, 0) = !Contrato
 Grid.TextMatrix(Row, 1) = !Cliente
 Grid.TextMatrix(Row, 2) = !Descricao

.MoveNext

Loop End With

Pessoal, com o select acima eu faço uma junção do texto, exemplo:

135013

135015

135020

no Grid só vai aparecer 1350.

Agora preciso juntar a Descrição de cada codigo, exemplo:

135013 xxxxxxxxx

135015 yyyyyyyyy

135020 zzzzzzzzz

no grid tem q aparecer:

1350 xxxxxxxxx - yyyyyyyyy - zzzzzzzzz

O campo é DadosCT.Descricao.

é possivel? O banco é access.