cambiar la forma de ver los registros en una grilla
 

mi problema es el siguiente, en una funcion traigo unos registros de la base de datos y los coloco en una grilla, pero al colocarlos los datos en la grilla la informacion me la trae como se muestra en la bd.

el codigo que uso es el siguinete:

Private Sub ACPM()
Dim consulta As String

If contaudi = 0 Then
Else
For i = 1 To contaudi
MSFlexGrid1.RemoveItem (1)

Next
contaudi = 0
End If

Set registro = New ADODB.Recordset
Set ContReg = New ADODB.Recordset
consulta = "Select dtc.codigo_equipo as ce, ACPM, fecha From reporte as r , detalle_equipos_consumo as dtc where fecha between '" & Text1 & "' and '" & Text3 & "' and r.codigo_reporte=dtc.codigo_reporte order by dtc.codigo_equipo asc"
Set registro = conex.Execute(consulta)
'consulta = "Select count(*) as contEmp From scsauditorias order by codigo_usuario asc"
'Set ContReg = conex.Execute(consulta)
contemp = registro.RecordCount
MSFlexGrid1.Rows = contemp + 2
While Not registro.EOF
MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 0) = registro!ce
MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 1) = registro!ACPM
MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 2) = registro!fecha
MSFlexGrid1.Row = MSFlexGrid1.Row + 1
registro.MoveNext
contaudi = contaudi + 1
Wend

End Sub

y cuando hago uso de esta funcion me muestra los datos en la grilla asi:

ce -- acpm -- fecha
920 -- 10 Gln -- 2008-04-17
920 -- 12 Gln -- 2008-04-18
920 -- 15 Gln -- 2008-04-19
950b -- 9.5 Gln -- 2008-04-17
950b -- 8.5 Gln -- 2008-04-18
950b -- 10 Gln -- 2008-04-19


lo que quisiera saber es como hago por programacion para que en la grilla se me muestren los datos de esta otra forma:

ce -- acpm -- fecha -- acpm -- fecha -- acpm -- fecha
920 -- 10 Gln -- 2008-04-17 - 12 Gln -- 2008-04-18 - 15 Gln -- 2008-04-19
950b -- 9.5 Gln -- 2008-04-17 - 8.5 Gln -- 2008-04-18 - 10 Gln -- 2008-04-19

la idea es mostrar el consumo de acpm y la fecha de una maquina en la misma linea y no una linea para cada consumo. he tratado pero no he podido, gracias por la colaboracion.