Imprimir Relacion

Hola grupo bueno despues de mucho investiga, porque solo
pregunto despues de agotar las demas fuentes de informacion
o que se me acaba el tiempo.

La pregunta es como puedo trabajar con el resultado de una
relacion..

explico tengo un datacombo enlazado a una tabla de dataset
y un grid enlazado a otra tabla del mismo dataset , tambien les
cree una relacion entonces cuando selecciono un cliente del
combo en el grid se muestran todos sus pedidos..

Ese resultado es el que estoy tratando de imprimir mandandolo
a un reporte pero solo me manda toda la tabla pedido

envio el codigo a para que me aconsejen

Muchas gracias
Dim i As Integer
Dim Row As DataRow
Dim arrRows() As DataRow
Dim myRel As DataRelation, myRow As DataRow
Dim dc As DataColumn
With dsDatos.Tables("Cliente")
For Each myRel In .ChildRelations
For Each myRow In myRel.ChildTable.Rows
arrRows = myRow.GetParentRows(myRel)
' Print values of rows.
For i = 0 To arrRows.Length - 1
_File.WriteLine("{$c1}" & arrRows(i)(0) & "{$c2}" &
arrRows(i)(3) & "{$c3}" & _
arrRows(i)(4) & "{$c4}" & arrRows(i)(5) & "{}")
Next i
Next myRow
Next myRel
End With