سوال درمورد چاپ تک تک داده ها در دیتا ریپورت

[hassan_ml75]

با سلام خدمت دوستان عزیز
من یک برنامه نوشتم که پرونده های یه سیستمی رو ثبت میکنه
من میخوام وقتی روی یکی از داده های دیتا گرید کلیک کنم تو صحفه دیگه مشخصات اون رو بیاره(من این کارو کردم با استفاده از SSTab) اما مشکل من این جاست که یه قسمت چاپ گزاشتم وقتی رو دکمه چاپ کلیک میکنه اطلاعات اون پرونده رو تو دیتا ریپورت نشون بده من از دستورات sql سردر نمیارم اگه میشه کد اون رو یا سورسشو بزارید ممنون میشم

[hassan_ml75]

کسی نبود کمک کنه؟

[hassan_ml75]

واقعا کسی نمیدونه؟مشکلو

[hassan_ml75]

این کد من هستش ولی نمیدونم چرا کار نمیکنه
On Error Resume Next
Dim Cnn As New ADODB.Connection
Dim Rst As New ADODB.Recordset
Dim sqltxt
Rst.Close
sqltxt = "SELECT * FROM par WHERE id =" & Adodc1.Recordset.Fields("id")
Set Rst = New ADODB.Recordset
Rst.Open sqltxt, Cnn, adOpenStatic, adLockPessimistic
Set DataReport3.DataSource = Rst
DataReport3.Sections("Section1").Controls.Item("L1").Caption = To_Hejri(Date)
DataReport3.Show 1

[hassan_ml75]

کسی نبود؟کمک کنه؟