Code:
 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