كيف يمكن ربط التقرير بقاعدة بيانات الاكسس الموجوده فى مسار البرنامج

مفيش حد خالص عارف ولا ايه

ارجو الافاده

ضع هذه الكود في وحدة نماطية

CN.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;User ID=sa;Initial Catalog=MhadKatab;Data Source=192.168.100.1"

ثم في حدث اللود بتع التقرير

If MS.State = adStateOpen Then MS.Close

MS.Open SQL, CN, adOpenStatic, adLockPessimistic

Report.Database.SetDataSource MS, 3, 1

'Report.Database.Tables(1).ConnectionProperties("Password") = "7330038"

Screen.MousePointer = vbHourglass

CRViewer1.ReportSource = Report

CRViewer1.ViewReport

Screen.MousePointer = vbDefault

Me.Show

CRViewer1.Zoom 80