Error msg when opening crystal through access

[rekhatr10]

Hi everyone,

CR version 7
Access 97

I am opeing crystal report through access. I have to set date parameter. I get promoted for the date parameter but when I choose the date I get error messageunable to connect.What am I doing wrong?

This is my code

Dim db As Database
Dim crpApplication As CRPEAuto.Application
Dim crpReport As CRPEAuto.Report

Set db = CurrentDb()
Set crpApplication = CreateObject("crystal.crpe.application")
Set crpReport = crpApplication.OpenReport("H:\PatientSurvey\ageRpt.rpt")
crpReport.Preview

Rekha

 

[synapsevampire]

Does the report work without the parameter?

The error doesn't sound related to the parameter, rather to the connectivity in the report.

Anyway, you must be using the old OCX, you version of Crystal is VERY old, and the OCX is no longer supported, so if you intend to upgrade EVER, do so now:

http://support.businessobjects.com/communityCS/TechnicalPapers/apps_ocx.pdf.asp

-k