ممنون از راهنمایی شما جناب حامد.
ولی در مورد خواندن فایل پسورد گذاری شده به مشکل برخوردم. کدی که گفتید رو هرخطی از کد لود فایلم که قرار میدم بازم پنجره پسورد برام ظاهر میشه .
این کدهای برنامم :
Dim frp As New FastReport.TfrxReport
Dim report As TfrxReport
Dim export As IfrxBuiltinExports
frp.EngineOptions.SilentMode = simMessageBoxes
frp.LoadReportFromFile App.Path & "\Test.fr3"
Dim Ado As New TfrxADODatabase
Dim q As New TfrxADOQuery
Set Ado = frp.FindDatabase("Ado")
Set q = frp.FindDatabase("qry")
q.Query = "Select * from listkala "
Ado.Connected = False
Ado.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=data.mdb;Persist Security Info=False"
Ado.LoginPrompt = False
Ado.Connected = True
frp.PreviewOptions.RTLPreview = False
frp.PrepareReport True
frv.report = frp
همچنین دستور زیر هم تغییراتی رو انجام نداد!
frp.PreviewPages.Page(1).Orientation = Landscape