Reporte en blanco

[spiderman78]

Que tal como estan de nuevo aqui con una consulta, tengo el siguiente problema tengo una consulta

Código:

Private Sub ConsultaPresupuesto()
    Dim sql As String, cadena As String, cadena1 As String
    cadena = codigo.Text
    Call VisualizarPresupuestos
        sql = "SELECT concepto,subconcepto1,subconcepto2,subconcepto3,subconcepto4,subconcepto5,importe,id FROM tblpresupuestos WHERE codigo like '" & cadena & "' ORDER BY codigo"
    Set presupuestos1 = New ADODB.Recordset
        presupuestos1.Open sql, BD, adOpenKeyset, adLockOptimistic
    If presupuestos.BOF = True Or presupuestos.EOF = True Then
    Exit Sub
    End If
End Sub

q la ocupa para enviarla a un mshflexgrid y me muestra la informacion si problema alguno el problema es q despues ocupa esa misma consulta para mandarla a un data report y me lo muestra en blanco

Código:

Private Sub Imprimir_Presupuestos()
  Call ConsultaPresupuesto
    Set DataPresupuestos.DataSource = presupuestos1
    DataPresupuestos.Show
End Sub

aqui es donde hago el proceso del datareport............ el problema es q no me marca ningun error no se si me haga falta algo, de antemano muchas gracias por la ayuda

saludos

[spiderman78]

Solucionado mi problema, me falta agregar los recipientes (rpttexbox) en el datareport

saludos