Visual Basic - crystal reports

CrystalReport1.ReportFileName = "c:\prova.rpt"
CrystalReport1.ReportSource = crptReport
CrystalReport1.RetrieveDataFiles
CrystalReport1.WindowState = crptMaximized
CrystalReport1.PrintReport

bueno tengo escrito esto en un boton de visual para ke me ejecute el imforme que el ralizado pero no me lo executa pq sera que esta mal??

Prueba con esta:
Me.CrystalEmpresa.ReportSource = crptReport
Me.CrystalEmpresa.DataFiles(0) = App.Path & ("\flotas.mdb")
Me.CrystalEmpresa.ReportFileName = App.Path & ("\rpt_empresa.rpt")
Me.CrystalEmpresa.Destination = crptToWindow
Me.CrystalEmpresa.Action = 1