Fields not populated in crystal report when called from asp page.

Hi all...

   I encountered a problem when trying to populate crystal report fields after calling it from an ASP page...
  Basically, i queried the sql database within an ASP page and stored the retrieved data in a recordset(objRS). Then i pass the recordset to the crystal report using the following code:
                          Set oRptTable = session("oRpt").Database.Tables.Item(1)
                          oRptTable.SetPrivateData 3, objRS
I have verified that the recordset contains the relevant data. When the ASP  page is run, the crystal report is generated with the fieldname only, the rest of the column is empty.Can someone please enlighten me?? Thanks.
    The full code is as follows:

<%
reportname = "EquipTest.rpt"
%>      
<!-- #include file="AlwaysRequiredSteps.asp" -->  
<%
      Dim objCommand, objRS, strSQL, oRptTable
      on error resume next
      Set objCommand = Server.CreateObject("ADODB.Connection")
      objCommand.Open "DSN=teba","teba_login","admin"
      strSQL = Request.Form("t1")
      if(strSQL<>"") then
            set objRS = Server.CreateObject("ADODB.Recordset")
      else
            set objRS = objCommand.Execute("exec "&UserDB                 & "pr_ReportAdmissionReport",",","")
      end if
      Set objRS=objCommand.Execute(strSQL)
      Response.Write(objRS.fields(0))
      
    Set oRptTable = session("oRpt").Database.Tables.Item(1)
    oRptTable.SetPrivateData 3, objRS
    if(err.number <> 0) then
    response.Write("Error displaying report: " & err.Description)
    end if
      
%>
<!-- #include file="MoreRequiredSteps.asp"-->
<!-- #include file="SmartVieweractivex.asp"-->
<%
if(isObject(rcst)) then  
rcst.Close
set rcst = nothing
end if

if(isObject(conn)) then
conn.Close
set conn = nothing
end if
   %>
regards
Justin_NJK