ReportControl ActiveX it doesn’t show the

i have a problew when use to doking pane and control report activex,

I have a report control and not show the data but :

ie.

Set columnContratos = wndRptContratos.Columns.Add(21, "Contrato", 50, True)
Set columnContratos = wndRptContratos.Columns.Add(22, "Nombre Contrato", 250, True)
Set columnContratos = wndRptContratos.Columns.Add(23, "F.Inicio", 50, True)
Set columnContratos = wndRptContratos.Columns.Add(24, "Monto Contrato", 80, True)
Set columnContratos = wndRptContratos.Columns.Add(25, "Contratista", 200, True)
Set columnContratos = wndRptContratos.Columns.Add(26, "Estado", 80, True)


in a function load the data of the report control and  make a populate

wndRptContratos.Populate

however, the reporcontrol shows that he has two line but it doesn't show the data

please any idea

Hi

it is this way as I make it

Private Sub Form_Load()
CreateReportContratos

wndRptComputos.Visible = False
wndRptValuaciones.Visible = False
wndRptPresupuestos.Visible = False
wndRptContratos.Visible = True

End Sub

Private Sub CreateReportContratos()
Set columnContratos = wndRptContratos.Columns.Add(21, "Contrato", 50, True)
Set columnContratos = wndRptContratos.Columns.Add(22, "Nombre Contrato", 250, True)
Set columnContratos = wndRptContratos.Columns.Add(23, "F.Inicio", 50, True)
Set columnContratos = wndRptContratos.Columns.Add(24, "Monto Contrato", 80, True)
Set columnContratos = wndRptContratos.Columns.Add(25, "Contratista", 200, True)
Set columnContratos = wndRptContratos.Columns.Add(26, "Estado", 80, True)
carga_datos_contrato (frmFiObras.obra)

wndRptContratos.Populate
wndRptContratos.EditOnClick = False
wndRptContratos.PaintManager.ShadeGroupHeadings = Not wndRptContratos.PaintManager.ShadeGroupHeadings
End Sub


Public Sub carga_datos_contrato(obra)
stSQL = " select c.nu_referencia as contrato, c. nb_contrato, c.fe_inicio, c.mo_contrato,  d.nb_proveedor," _
      & " (CASE c.flg_estado" _
      & "       WHEN 0 THEN 'ABIERTO'" _
      & "       WHEN 1 THEN 'CERRADO' " _
      & " END) as estado" _
      & " from oproceso.samaco c" _
      & " left join compras.samapro d on " _
      & " c.id_estado = d.id_estado and " _
      & " c.co_empresa = d.co_empresa and " _
      & " c.co_filial = d.co_filial and " _
      & " c.id_contratista = d.co_proveedor " _
      & " Where " _
      & " c.id_estado = 'SA' and " _
      & " c.co_empresa =" & UserCia & "  and " _
      & " c.co_filial =" & UserSede & " and " _
      & " c.id_refobra ='" & Trim(obra) & "'"

Call AbreRS(2, 1, RsGenerico, stSQL)

If Not RsGenerico.EOF Then
   Do While Not RsGenerico.EOF
      AddRecordContratos RsGenerico!contrato, RsGenerico!nb_contrato, RsGenerico!fe_inicio, RsGenerico!mo_contrato, RsGenerico!nb_proveedor, RsGenerico!estado
      RsGenerico.MoveNext
   Loop
End If

Set RsGenerico = Nothing

End Sub

Private Sub AddRecordContratos(Optional contrato As String, Optional nombre As String, Optional fe_inicio As String, _
         &nbs p;         &nbs p;     Optional mo_contrato As Double, Optional contratista As String, Optional estado As String)

    Dim RecordContrato As ReportRecord
    Set RecordContrato = wndRptContratos.Records.Add()

    RecordContrato.AddItem contrato
    RecordContrato.AddItem nombre
    If IsNull(fe_inicio) Then
       RecordContrato.AddItem "00/00/0000"
    Else
       RecordContrato.AddItem fe_inicio
    End If
    RecordContrato.AddItem Format(mo_contrato, "#,##0.00")
    RecordContrato.AddItem contratista
    RecordContrato.AddItem estado

End Sub