Отчет crystal reports в VB6

Формулировка задачи:

Есть небольшая программка написана на VB6 из которой нужно запустить уже сформированный отчет, в одной книге нашел вот такой пример:

Private Sub Command2_Click()
Dim crapp As New CRAXDRT.Application
Dim CrReport As New CRAXDRT.Report
Set CrReport = crapp.OpenReport("D:\balanceMR\Report5.rpt")
Dim oPFD As CRAXDRT.ParameterFieldDefinition
For Each oPFD In CrReport.ParameterFields
If oPFD.Name = "{?misa}" Then Exit For
Next
oPFD.SetCurrentValue "8"
End Sub

но что то в нем не так (или во мне, но это так...), вылетает ошибка при попытке подключения к репорту. Элемент Crviewer на форму поставил, строка подключения правильная, хотя отчет и база данных находится в той же папке что и программа, как это прописать тоже не понятно. Помогите, очень прошу!

Решение задачи: «Отчет crystal reports в VB6»

textual
                            Листинг программы 
                        

                            Private Sub Form_Load()
Report.Database.Tables(1).SetLogOnInfo App.Path & "\balance.mdb"
Report.DiscardSavedData
Report.ParameterFields.GetItemByName("misa").AddCurrentValue a
Screen.MousePointer = vbHourglass
CRViewer91.ReportSource = Report
CRViewer91.ViewReport
Screen.MousePointer = vbDefault
End Sub

                        