خب شکر خدا مشکلم با این دو خط کد حل شد! برای مشاهده این لینک/عکس می بایست عضو شوید ! برای عضویت اینجا کلیک کنید
rsreport.Open "select * from Treport", dbname, adOpenDynamic, adLockPessimistic
Set DR.DataSource = rsreport


البته من DataEnvironment رو حذف کردم و فقط با data report کار کردم!!