vb6.0 datareport

[csckid]

 strSQL = "select model from  furobj"       
       
       Set rec = conn.Execute(strSQL)
     
        Load DataReport2
       Set DataReport2.DataSource = rec      
        
       DataReport2.Sections(3).Controls.Item("Label1").Caption = rec.Fields(0).Value       
     
       DataReport2.Show

i wanted to show all records in datareport but the datareport shows only one record and is printed many times

[wes4dbt]

That SQL statement will return the "model" from every record in the "furobj" table. Test whats in "rec"

do while Not rec.EOF
    msgbox rec!model
    rec.Movenext
Loop

[brucevde]

rptLabel controls are not Bound controls. Only data from the first record will be loaded into the Label Caption.

Use an rptText control and bind it to the recordset by setting it's DataField property to the name of the recordset field.

DataReport2.Sections(3).Controls.Item("Text1").DataField = rec.Fields(0).Name