About Crystal Report

Hi, ALL

I used crystal report 4 to display data but when I run program nothing appear in crystal report and I think there is no error in my code.
This is my code that I use in my program:

Private Sub Com_print_Click()
Dim X As Integer
CrystalReport1.ReportFileName = App.path & "\" & "personN.rpt"
CrystalReport1.Destination = crptToWindow
X = CrystalReport1.PrintReport
End Sub

Please help, thanks