Dim i As Integer

Private Sub DataReport_Initialize()
    Dim i As Integer
          
       Set DataReport1.DataSource = RS_t.DataSource
                      i = DataReport1.Sections("Section1").Controls.Count
       
    With DataReport1
      With .Sections("Section1").Controls
        If TypeOf .Item( 1 ) Is RptTextBox Then
    .Item( 1 ).DataMember = ""
    .Item( 1 ).DataField = RS_t.Fields( 4 ).Name
    '.Item(0).DataField = rs.Fields(2).Name
    End If
    If TypeOf .Item( 2 ) Is RptTextBox Then
    .Item( 2 ).DataMember = ""
    .Item( 2 ).DataField = RS_t.Fields( 5 ).Name
    .Item( 3 ).DataMember = ""
    .Item( 3 ).DataField = RS_t.Fields( 6 ).Name
   ' RS_t.Close
    
      ' Set DataReport1.DataSource = RS_b.DataSource
         
         'i = DataReport1.Sections("Section1").Controls.Count
    ' RS_b.Open "SELECT * FROM [Áàíê ïëàòåëüùèêà]", cn_t, adOpenDynamic, adLockOptimistic
    .Item( 4 ).DataMember = ""
    .Item( 4 ).DataField = RS_b.Fields( 3 ).Name
    .Item( 0 ).DataField = rs.Fields( 2 ).Name
    End If
         End With
    
    End With
End Sub