set datareport1.datasource=rs
With DataReport1.Sections("Section1")
.Controls("Text1").DataField = "logname"
.Controls("Text2").DataField = "sex"
end with
set datareport1.datasource=rs
With DataReport1.Sections("Section1")
.Controls("Text1").DataField = "logname"
.Controls("Text2").DataField = "sex"
end with