you can use supreport it will be satisfying your need and it will be more efficient, create report with Name Year DOB Phone, and the subreport with ScName Address District Phone, after you set the main report datasource you need to fill the subreport datasource in the function (BindReport) with code like this:
cryRpt.Subreports("SubReportName").SetDataSource(dt2)