The method of dynamically loading Crystal Report rpt file in VB

Dynamic | loading | Crystal Report This question is asked in many forums. But no satisfactory answer has been found. Write a solution below
Dim SQL as String
Dim Rstliushui as New ADODB. Recordset
Dim Rpt as New craxddrt. The
Dim Printapp as New craxddrt. Application
If Option2.value = True Then
sql = "SELECT * from N_ihbill where DateDiff (d, Date, '" & Format (Dtpicker1.value, "Yyyy-mm-dd") & "') =0 and inpatient number =" &am P Cbopatient. ItemData (cbopatient. ListIndex)
Else
sql = "SELECT * from N_ihbill where DateDiff (d, Date, '" & Format (Dtpicker1.value, "Yyyy-mm-dd") & "') =0"
End If
Debug.Print SQL

Rstliushui.open sql, Adoconn, adopenforwardonly, adLockReadOnly

If rstliushui.eof and Rstliushui.bof Then
MsgBox "No data available!" ", vbinformation
Exit Sub
End If

Set Rpt = Printapp.openreport ("Cryliushui.rpt")
Rpt.Database.SetDataSource Rstliushui

Call Viewreport (Rpt, "", "Print Water")
Rstliushui.close
Set Rstliushui = Nothing
This enables the logical separation of the program from the report. If you use Report Designer. You need to compile the program every time you change the report format. Customers can even change the report format themselves.