[sendbad100]

السلام عليكم

هل هذا هو المطلوب 

PHP كود :

Private Sub Command1_Click()


'هنا جلب بيانات العنوان
If rs.State = adStateOpen Then rs.Close
rs.Open "SELECT * FROM Tabel1 WHERE   [NO] = " & Val(Text1.Text), db, adOpenStatic, adLockPessimistic
 
    DataReport1.Sections("Section4").Controls("Name").Caption = rs![Nme]
    DataReport1.Sections("Section4").Controls("Age").Caption = rs![Old]



'هنا جلب بيانات  التقرير نفسة
If rs.State = adStateOpen Then rs.Close


' If rs.State = adStateOpen Then rs.Close    تم استبدال هذا الاستعلام
               
rs.Open "SELECT * FROM Tabel1 WHERE   [NO] = " & Val(Text1.Text), db, adOpenStatic, adLockPessimistic '   هل هذا هو المطلوب  'بهذا الاستعلام


Set DataReport1.DataSource = rs
 

DataReport1.Show



End Sub