Private Sub Command4_Click()
Set rs = New adodb.Recordset
rs.Open " select * from MR query", con, adOpenDynamic, adLockOptimistic
if rs.recordcount > 0 then
if not rs.eof then
with datareport2.sections("section1").controls
.item("text1").datafield = rs.fields("emp_file").name
'etc.
end with
end if
set datareport2.datasource = rs
datareport2.show
end if

end sub

regards
Ryan Riel