[eng.bassel]

السلام عليكم

ارجو مساعدتي في هذه المشكلة
لدي تطبيق متصل بقاعدة بيانات اكسس عن طريق Data
وصممت تقرير Data Report عن طريق Data Environment
ويظهر التقرير عند الضغط على زر الطباعة بشكل سليم و لكن المشكلة هي انه عند الضغط مرة اخرى على زر طباعة يظهر الخطأ التالي:
Run-time error 3705: this operation is not allowed when the object is open
أعتقد ان الرسالة تقول انه لايمكن إعادة الاتصال بقاعدة البيانات لانه قمنا بالاتصال في المرة الاولى
لذلك قمت بكتابة كود لإغلاق الاتصال و لكن ظهرت الرسالة التالية:
Run-time error 3709: The connection cannot be used to perform this operation. It's either closed or invalid in this context

وهنا اعتقد انا الرسالة تعني انه لايمكن الاتصال بقاعدة البيانات لان الاتصال مغلق او غير صالح

وهذا الكود: 

كود :

DataEnvironment1.Connection1.ConnectionString = App.Path + "\db1.mdb"
DataEnvironment1.rsCommand1.Open "select in_pay,in_pay_date,typein,std_nm from inmoney order by typein"
DataReport1.Show

وهذا كود الاغلاق الذي وضعته:

كود :

If DataEnvironment1.rsCommand1.State = adStateOpen Then
  DataEnvironment1.rsCommand1.Close
End If

If DataEnvironment1.Connection1.State = adStateOpen Then
   DataEnvironment1.Connection1.Close
End If
MsgBox "Closed!"

أرجو المساعدة و لكم جزيل الشكر...