Try something like this
Set RS = MyConn.Execute("Select * From XYZ"
reportname = "Report1.rpt"
If Not IsObject (session("oApp"

) Then
Set session("oApp"

= Server.CreateObject("Crystal.CRPE.Application"

End If
Path = Request.ServerVariables("PATH_TRANSLATED"
While (Right(Path, 1) <> "\" And Len(Path) <> 0)
iLen = Len(Path) - 1
Path = Left(Path, iLen)
Wend
If IsObject(session("oRpt"

) then
Set session("oRpt"

= nothing
End if
Set session("oRpt"

= session("oApp"

.OpenReport(path & reportname, 1)
set Database = session("oRpt"

.Database
set Table = Database.Tables.Item(1)
Table.SetPrivateData 3, Rs