Visual Basic - Problema con datareport URGENTE

Hola a todos:
Tengo un problema, y es que creo un Un recordset jerrarquico que contiene dos comandos secundarios (Utilizo el DE), pero cuendo los voy a poner en un datareport me dice que no puede porque no acepta recordset (comandos) multidimensionales.

Por favor, soluciones, gracias a todos

Hola Marcos, otra forma de hacer informes es ejecutando el word o el excel desde visual, de la siguiente forma:

ESTE PA EL EXCEL

Private Sub cmdExcel_Click()

Dim valor As Variant
Dim i As Integer
Set objDocExcel = New Excel.Application
objDocExcel.Visible = False
objDocExcel.SheetsInNewWorkbook = 1
objDocExcel.Workbooks.Add
With objDocExcel.ActiveSheet
.Cells(1, 4).Value = "Datos de los Usuarios"
.Cells(4, 3).Value = "DNI:"
.Cells(4, 5).Value = txtDni.Text
.Cells(5, 3).Value = "Nombre:"
.Cells(5, 5).Value = txtNombre.Text
.Cells(6, 3).Value = "Apellidos:"
.Cells(6, 5).Value = txtApellidos.Text
.Cells(7, 3).Value = "Teléfono:"
.Cells(7, 5).Value = txtTelefono.Text
.Cells(8, 3).Value = "Direción:"
.Cells(8, 5).Value = txtDireccion.Text
.Cells(11, 2).Value = "Líneas de Comentarios:"
End With

objDocExcel.ActiveCell.Range("A1:D1").Font.Size = 20
objDocExcel.ActiveCell.Range("A1:C1").Font.Bold = True
objDocExcel.ActiveSheet.Range("A1:H20").Font.Name = "Monotype Corsiva"
objDocExcel.ActiveSheet.Range("A2:H50").Font.Size = 13

objDocExcel.ActiveSheet.Cells(12, 2) = "Fecha"
objDocExcel.ActiveSheet.Cells(12, 2).HorizontalAlignment = xlCenter
objDocExcel.ActiveSheet.Cells(12, 3) = "Comentario"

valor %3