Subreport Object

Hi this is Vikrant,
I'm having a problem with subreports
I'm trying to use the code given below:

For y = 1 to crReportObject.Count
if crReportObject.Item(y).Kind = crSubReportObject Then
Set crSubReportObject = crReportObject.Item(y)

i get the error
"Run Time Error '91' :
Object Variable or With Block Variable not set"

Cud somebody help me out,
coz' i'm stuck in dat for days.......
Thnx in advance

.