Passing log on info to sub reports

[PallaviDalvi]

I am trying to access a Crystal report from ASP. This report has a linked sub report. I am able to view the main report from the ASP page. but when i access the sub report i get the error--> Server has not been started. which means that my sub report is not getting the database log on info. i tried passin the info with the code available on net. but the first line itself fails saying Object does not suppot this method. My code is

	set crSections=session("oRpt").sections
	'if i print the error message here it says object does not support this method. 
	
	For Each crSection In crSections
		crReportObjects = crSection.ReportObjects
		
		'loop through all the report objects to find all the subreports
		For Each crReportObject In crReportObjects
			If crReportObject.Kind = ReportObjectKind.SubreportObject Then
				
				'you will need to typecast the reportobject to a subreport()
				'object once you find it
				
				crSubreportObject = CType(crReportObject, SubreportObject)
				'open the subreport object
				crSubreportDocument = crSubreportObject.OpenSubreport(crSubreportObject.SubreportName)
				
				'set the database and tables objects to work with the subreport()
				crDatabase = crSubreportDocument.Database
				crTables = crDatabase.Tables
				'loop through all the tables in the subreport and
				'set up the connection info and apply it to the tables
				For Each crTable In crTables
											crTable.SetLogOnInfo "test" , "","test","test"
					if crTable.TestConnectivity then
						Response.Write "Connecting to sub"     ' I am getting this message
												
					end if 
					
				Next
				
			End If
		Next
	Next

please point out what i am doin wrong. Greatly appreciate the help!

[PallaviDalvi]

The culprit is
crSubreportObject = CType(crReportObject, SubreportObject)
i commented this line and it works!