ایجاد گزارش از دو یا چند جدول در کریستال

[ali_mo7670]

با سلام به دوستان
من با این کد از یک جدول میتونم گزارش بگیرم ولی نمیدونم چرا وقتی گزارش را به دو جدول لینک میدم خطا میگیره

کد:
adoreport.ConnectionString = "Provider=SQLOLEDB.1;Password=123;Persist Security Info=True;User ID=ali;Initial Catalog=andi1390;Data Source=192.168.1.10"
adoreport.RecordSource = "SELECT * FROM per,morkhase_yek where per.code_per=morkhase_yek.code_per and code='" & text1.Text & "'"
adoreport.Refresh
Set crrpet = crapp.OpenReport("E:\report\morsa.rpt")
For Each crdbtab In crrpet.Database.Tables
crdbtab.ConnectionProperties.Item("Data Source") = "Provider=SQLOLEDB.1;Password=123;Persist Security Info=True;User ID=ali;Initial Catalog=andi1390;Data Source=192.168.1.10"
Next
crrpet.Database.SetDataSource adoreport.Recordset
Form38.CrystalReport.ReportSource = crrpet
Form38.CrystalReport.ViewReport
crrpet.DiscardSavedData
Form38.Show vbModal
لازم به ذکر هست که اگه کدcrrpet.DiscardSavedData رو غیر فعال کنم خطا نمیگیره ولی دستور select کار نمیکنه و اولین رکورد جدول را نمایش میده.
اگه کسی میدونه راهنمایی کنه
با تشکر

[ali_mo7670]

دوستان خواهشن یکی جواب بده خیلی دیرم شد.

[amini699]

سلام
این بانک از اکسس اسفاده شده فرقی نداره و کد رو عوض کن در ضمن تو کریستال از دو جدول اسفاده میکنی یا باید اول فیلتر بشه یا از قسمت لینک استفاده کنی اگه مشکلی بود نمونه ارسال کن اصلاح کنم