[RESOLVED] Crystal Report is not displaying

Good Day! I don't know what is the problem of my code below...When i click the button my Crystal Report is not displaying..No error found also..Please help

Form2

Code:

---

Option Explicit
Public Report As New CrystalReport1

Public Function printReport()

Dim strConnectionString As String
Dim rs As ADODB.Recordset
Dim strScript As String
Dim mvcn As ADODB.Connection
 
strConnectionString = "Provider=SQLOLEDB;Data Source=192.168.15.254;UID=sa;PWD=;Initial Catalog=dbVBTest"

Set mvcn = New ADODB.Connection

mvcn.ConnectionString = strConnectionString
mvcn.CursorLocation = adUseClient
mvcn.Open

    strScript = strScript & "SELECT * FROM employee" & vbCrLf

    Set rs = mvcn.Execute(strScript)

    Report.Database.SetDataSource rs
    Report.AutoSetUnboundFieldSource crBMTNameAndValue

    CRViewer1.ReportSource = Report
    CRViewer1.ViewReport

    Set Report = Nothing
    mvcn.Close

End Function

---

Form1

Code:

---

Private Sub Command1_Click()

form2.printReport

End Sub

---

This thread already solved! Thanks for not helping :)