CreateObject("Crystal.CrystalReport")

Hello,

I am trying to build a program that already works and is in the production box, but in my box i cannot get it to run in design mode.

This are the lines of code:
===================
1 Private rptCrystal As Object
2 Set rptCrystal = CreateObject("Crystal.CrystalReport")
3 rptCrystal.WindowParentHandle = Me.hwnd
4 rptCrystal.DiscardSavedData = False
5 rptCrystal.ReportFileName = strReportName
6 rptCrystal.Connect = "DSN=" & Trim$(strConnect) & ";UID=reporter;PWD=goldenhorseshoe;DSQ="

7 nReport = rptCrystal.GetNSubreports

And these are the following error when i run the program in design mode:

Lines 4 & 7 give me the following error:
============================
Run-time error: '438':
"Object doesn't support this property or method"

Has anyone come across this before?

Any insight will be greatly appreciated!

Antonio.