Hi all,

i have a problem where i have a recordset of about 200 records containing customer names, for each record, i have to open a crystal report passing the recordset data as parameter and then exporting that report to html format (4.0)

main problem is that when i run the program it works fine for few records and then it gives an error
"Unhandled win32 exception occured in vb6.exe[7828] "
and thus terminating the program.

this error appears randomly sometimes after 15 records and other times after 50+ records.

i am attachign the code with this thread please havea look at the code and do suggest me a solution. it looks as if its related to memory management.

thanks in advance.

regards,
atin...


code

Private Sub Command1_Click()
On Error Resume Next
stdt = CDate(strStDt)
seldt = CDate(strSelDt)

'rs is recordset db is connection object

rs.Open str1, db, adOpenDynamic, adLockOptimistic
Set cry = New CRAXDRT.Application
ReDim strCS(1 To rs.RecordCount)
For i = 1 To rs.RecordCount
strCS(i) = rs.Fields(0)
rs.MoveNext
Next i

rs.Close
Set rs = Nothing
db.Close
Set db = Nothing


Set rep = cry.OpenReport("DtrList-xbndrstatement.rpt")

For i = 1 To UBound(strCS)
rep.EnableParameterPrompting = True
rep.DiscardSavedData
rep.ParameterFields.GetItemByName("seldate").AddCurrentValue seldt
rep.ParameterFields.GetItemByName("stdate").AddCurrentValue stdt
rep.ParameterFields.GetItemByName("stCus").AddCurrentValue strCS(i)


With rep
.ExportOptions.FormatType = crEFTHTML40 'exporting to html format'
.ExportOptions.DestinationType = crEDTDiskFile
.ExportOptions.HTMLFileName = "C:\" + strCS(i) + ".html"
.Export False
End With

Next i
Set rep = Nothing

cry.CanClose
Set cry = Nothing

End Sub