سؤال مهم لم أجد له اجابة

السلام عليكم ورحمة الله وبركاته

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

المشكلة إن استعلام البيانات يتم بكل سهولة ولكن الصور المقابلة لهذه البيانات لا تظهر فقط صورة السجل الأول ثم تتكرر في باقي السجلات في التقرير كيف يتم تعديل هذا الكود حتى يخرج كل سجل مع الصورة له

هذا هو الكود

cn.CursorLocation = adUseClient

cn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\ma.mdb;"

rs.Open "SELECT * FROM s71 WHERE ts = '" & 1 & "'", cn, adOpenStatic, adLockPessimistic

Set DataReport1.DataSource = rs

Set DataReport1.Sections("section1").Controls("image1").Picture = LoadPicture(Trim(App.Path) & "\b" & "\" & Trim(rs!m))

DataReport1.Show

ارجو الرد لأني بحثت في كل المنتديات ولم أجد حل لهذه المشكلة