Dim crBalanceRegister As New Reports.BalanceRegisterRpt
    RCLibrary.SetReportServerConnection(crBalanceRegister)
    crBalanceRegister.RecordSelectionFormula() = sReportSQL
    crBalanceRegister.SetParameterValue("Selection", sSelection)
    crBalanceRegister.SetParameterValue("CompanyName", RCCentral.Get_Value("Name"))
    crBalanceRegister.SetParameterValue("ShowDetail", sShowDetail)
    crBalanceRegister.SetParameterValue("ShowCourseSum", sCourse)
    crBalanceRegister.SetParameterValue("ShowMembershipSum", sMembership)
    crBalanceRegister.SetParameterValue("ShowMerchandiseSum", sMerch)
    crBalanceRegister.SetParameterValue("ShowFacilityRentalSum", sFacility)
    crBalanceRegister.SetParameterValue("ShowRevenueAcctSum", sRevenueAcct)
    If Me.RegisteredRadioGroup.SelectedIndex = 0 Then
      SetSubReportParameter(crBalanceRegister, "@Online", Nothing)
    ElseIf Me.RegisteredRadioGroup.SelectedIndex = 1 Then
      SetSubReportParameter(crBalanceRegister, "@Online", False)
      crBalanceRegister.Subreports("RevenueAcctSummary").SetParameterValue("@Online", False)
    Else
      SetSubReportParameter(crBalanceRegister, "@Online", False)
    End If
    SetSubReportParameter(crBalanceRegister, "@Registrar", Me.UsernameLookupEdit.EditValue)
    SetSubReportParameter(crBalanceRegister, "@HeadOfHouse", Me.CustomerLookupCustomers.EditValue)
    SetSubReportParameter(crBalanceRegister, "@FromDate", Me.FromDate.EditValue)
    SetSubReportParameter(crBalanceRegister, "@ThruDate", Me.ThruDate.EditValue)
    Select Case iDestination
      Case 0
        Dim preview As New PrintPreview
        preview.CrystalReportViewer1.ReportSource = crBalanceRegister
        preview.MdiParent = My.Forms.MainMDI
        preview.Show()
      Case 1
        RCLibrary.EmailReport(crBalanceRegister, "BalanceRegister", "Balance Register")
      Case 2
        RCPrint.LoadPrintSetup(crBalanceRegister, "BalanceRegister")
        crBalanceRegister.PrintToPrinter(1, True, 0, 0)
        RCLibrary.CleanCrystal(crBalanceRegister)
        crBalanceRegister.Close()
        crBalanceRegister.Dispose()
    End Select