Crystal Report - Ayuda VB6 Y Crystal Reports

Estoy trabajando en una applicacion TPV, QUE GENERA INFORMES CON EL CRYSTAL REPORTS. tengo crystal reports 9 full. Pero cuando quiero ver el informe tengo un error. Uso este codigo:

Private Sub cmd_Click()
CrystalReport1.DataFiles(0) = App.Path & "\Database.mdb"
CrystalReport1.ReportFileName = App.Path & "\Report\rpt_Verify_cutomer_detail.rpt"
CrystalReport1.SelectionFormula = "{Customer_master.cutomer_name} = '" & Combo1.Text & "'"
CrystalReport1.username = "Admin"
CrystalReport1.Password = "5050505050" & Chr(10) & "5050505050"
CrystalReport1.Action = 1
CrystalReport1.PageZoom (100)
End Sub

El error es CrystalReport1.Action=1