Модераторам и всем кто знаком с Crystal Reports

[vbuser]

Хочу подключить к приложению на VB rpt-файл, но на строчке CRViewer1.ViewReport выдает "server not yet opened". Что делать? Как использовать Crystal?

Dim cr_app As New CRAXDDRT.Application
Dim rpt As New CRAXDDRT.Report
Dim rs As ADODB.Recordset
Dim con As ADODB.Connection
Dim com As ADODB.Command

Private Sub Form_Load()

Set com = New ADODB.Command
Set con = New ADODB.Connection
Set rs = New ADODB.Recordset

strcon = "Provider=MSDASQL.1;Persist Security Info=True" + _
";DSN=DSN_name;Initial Catalog=Base;"

con.Open strcon, user,pass
com.ActiveConnection = con
com.CommandText = "table_1"
com.CommandType = adCmdTable

Set rpt = cr_app.OpenReport("d:\templs\test.rpt", 1)

rpt.Database.LogOnServer "p2ssql.dll", Server, Base, User, Pass

rpt.DiscardSavedData
rpt.Database.AddADOCommand con, com

Screen.MousePointer = vbHourglass
CRViewer1.ReportSource = rpt
CRViewer1.ViewReport
Screen.MousePointer = vbDefault

End Sub

Private Sub Form_Resize()
CRViewer1.Top = 0
CRViewer1.Left = 0
CRViewer1.Height = ScaleHeight
CRViewer1.Width = ScaleWidth

End Sub