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