Efectivamente analoyra, tienes que asignar el recordset a la propiedad DataSource del DataReport:
Código:
Set DataReport1.DataSource = rs
With DataReport1.Sections("Section2").Controls ' encabezado de página
.Item("Label1").Caption = rs.Fields(0)
.Item("Label2").Caption = rs.Fields(1)
.Item("Label3").Caption = rs.Fields(2)
' etc.....
End With
Nota: Si lo tienes en español, sustituye "Section2" por "Sección2" y "Labelx" por "Etiquetax"
