Siang agan-agan..

Ane baru bikin program penggajian pake VB6 nih gan, reportny pake crystal report 10, databasenya pake access..
Trus di form cetak slip gaji itu programnya kalo di run selalu error "Invalid File Name"
Tolong bantuin ane gan.. Ini listing code tersangka:

Private Sub Combo1_Click()
CR.SelectionFormula = "Totext({tpegawai.NIK})='" & (Combo1) & "'"
CR.ReportFileName = App.Path & "\report\LaporanDataGaji2.rpt"
CR.Connect = App.Path & "\db\PEGAWAI.mdb"
CR.RetrieveDataFiles
CR.Destination = crptToWindow
CR.PrintFileType = crptCrystal
CR.WindowShowPrintBtn = True
CR.WindowState = crptMaximized
CR.Action = 1
End Sub

Nah, erornya ada di CR.RetrieveDataFiles gan..
Mohon bantuannya...
terimakasih agan-agan sekalian...