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( 0 ).Name
           .Item( 2 ).DataMember = ""
            .Item( 2 ).DataField = RS_t.Fields( 1 ).Name
           .Item( 3 ).DataMember = ""
           .Item( 3 ).DataField = RS_t.Fields( 2 ).Name
           .Item( 4 ).DataMember = ""
           .Item( 4 ).DataField = RS_t.Fields( 3 ).Name
           .Item( 5 ).DataMember = ""
           .Item( 5 ).DataField = RS_t.Fields( 4 ).Name
           .Item( 6 ).DataMember = ""
           .Item( 6 ).DataField = RS_t.Fields( 5 ).Name
           .Item( 7 ).DataMember = ""
           .Item( 7 ).DataField = RS_t.Fields( 6 ).Name
           .Item( 8 ).DataMember = ""
           .Item( 8 ).DataField = RS_t.Fields( 7 ).Name
           .Item( 9 ).DataMember = ""
           .Item( 9 ).DataField = RS_t.Fields( 8 ).Name
           .Item( 10 ).DataMember = ""
           .Item( 10 ).DataField = RS_t.Fields( 9 ).Name
       
    
    
If TypeOf .Item( 2 ) Is RptTextBox Then
            
         ' .Item(11).DataMember = ""
          '.Item(11).DataField = RS_t.Fields(10).Attributes
          ' .Item(12).DataMember = ""
           '.Item(12).DataField = RS_t.Fields(11).Name
           '.Item(13).DataMember = ""
          '' .Item(13).DataField = RS_t.Fields(12).Name
         '  .Item(14).DataMember = ""
           '.Item(14).DataField = RS_t.Fields(13).Name
          ' .Item(15).DataMember = ""
          ' .Item(15).DataField = RS_t.Fields(14).Name
          ' .Item(16).DataMember = ""
          ' .Item(16).DataField = RS_t.Fields(15).Name
          ' .Item(17).DataMember = ""
          ' .Item(17).DataField = RS_t.Fields(16).Name
           '.Item(18).DataMember = ""
          ' .Item(18).DataField = RS_t.Fields(17).Name
    
            End If
       End If
     End With
End With
End Sub