enviar datos del Flexgrid al DataReport

Yo hice la misma pregunta hace un tiempo. Esto es lo que me respondieron.

Set rst = New ADODB.Recordset
for c=0 to grid.cols - 1
rst.Fields.Append grid.textmatrix(0,c), adVarChar, 20
next c
rst.CursorType = adOpenKeyset
rst.LockType = adLockOptimistic
rst.Open
Dim Y, i
For Y = 1 To grid.Rows - 1
rst.AddNew
For i = 0 To grid.cols - 1
rst(i) = grid.TextMatrix(Y, i)
Next i
Next Y

Con esto creas un recordset desconectado con los datos de la grilla (que en
el ejemplo se llama grid), usando como nombre de los campos los nombres de
las columnas que estan en la primera fila de la grilla.

Suerte


Se como mostrar información de una base de datos a un
datareport por medio de una consulta SQL o a traves de un
dataenvironment pero...
Tengo información la cual muestro en el control Flexgrid.
Mi problema es saber ¿como envío directamente esta
información a un dataReport?
Por sus comentarios y sugerencias, muchas gracias.