reports from form data

[dave buckberry]

this is the code on the load event
sSql = " SELECT Employees.[Clock Number], Employees.[First Names]
Employees.Surname, [Employee Status Codes].[Employee Status], [Employe
Activity].[Finish Event], [Employee Activity].[Operation Number]
[Employee Activity].[Resource Code], [Employee Activity].[Total Time]
[Employee Status Codes].[Employee Status Code], [Employe
Activity].[Start Event], [Employee Activity].[Batch Number]
[Employees].[Job Title]" & _
" FROM (Employees INNER JOIN [Employee Status Codes] O
Employees.[Employee Status Code] = [Employee Status Codes].[Employe
Status Code]) INNER JOIN [Employee Activity] ON Employees.[Cloc
Number] = [Employee Activity].[Clock Number]" & _
" WHERE [Employee Activity].[Start Event] Between #" & Text25 & "# An
#" & Text27 + 1 & "#"


'Set rs = db.OpenRecordset(sSql, dbOpenDynaset, dbSeeChanges
dbPessimistic)
Dim stDocName As String

stDocName = "qActiveEmployees"
DoCmd.OpenReport stDocName, acPreview, , sSql, acNormal


is there a way that i can use the same code to write a report from th
data that this sql gives me but not running a different query linked t
the repor