CrystalReport1.ReportFileName = rapor_adi
CrystalReport1.DataFiles(0) = App.Path & "\Cust_Orders.mdb"
CrystalReport1.Password = Chr(10) & "şifreniz"
CrystalReport1.Action = 1
eğer report designer controlu kullanıyorsanız;
----------------------------------------------------------
Dim crxRep As New CrystalReport1
crxRep.Database.Tables(1).Location = App.Path & "\Cust_Orders.mdb"
crxRep.Database.Tables(1).SetSessionInfo "", Chr(10) & "şifreniz"
CRViewer1.ReportSource = crxRep
CRViewer1.ViewReport
