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

Private Sub Form_Load()
Set cn = New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\balance.mdb;Mode=Read"

    Set Report = New CrystalReport1
    Set rs25 = New ADODB.Recordset
rs25.Open "SELECT * FROM ostat", cn, adOpenDynamic, adLockBatchOptimistic
 Report.Database.SetDataSource rs25
 
Screen.MousePointer = vbHourglass
CRViewer1.ReportSource = Report
CRViewer1.ViewReport
Screen.MousePointer = vbDefault

Set Report = Nothing
rs25.Close
Set rs25 = Nothing
End Sub

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