I have a VB6 program with a reference to craxdrt.dll and crviewer. I'm try to run the following code and the above error is generated:

Dim CApp As New CRAXDRT.Application
Dim Report As New CRAXDRT.Report

Set Report = CApp.OpenReport(Text1.Text) 'my report use p2ssql.dll driver
Report.DiscardSavedData
Report.Database.Tables(1).SetLogOnInfo mstrServer, mstrBD, mstrUser, mstrPass
Report.Database.Tables(1).Location = mstrBD & "." & mstrUser & "." & "fcrproc" 'fcrproc is store procedure
MsgBox "conectado?:" & Report.Database.Tables(1).TestConnectivity 'False

Report.ParameterFields(1).AddCurrentValue "2003"

Dim pfrm As New frm
Load pfrm
pfrm.CRViewer1.ReportSource = Report
pfrm.CRViewer1.ViewReport
pfrm.Show vbModal 'Here I get "Server has not yet been opened"


My problem is that this code source work fine in my machine, but in other machine I get the "Server has not yet been opened" error.

I have find out a lot of white paper, but no one help me and I not have solution yet.

Somebody help me?