بستن تمام adodc هاي موجود در يك پروژه

[ali682344]

با سلام و خسته نباشيد
ايا مي توان كاري كرد كه يكباره تمام adodc هاي يك پروژه بسته بشن
مثل adodc1.recordset.close ولي به صورت يكجا در تمام فرم ها

پيشاپيش از كمكتون متشكرم

[xxxxx_xxxxx]

سلام،
البته که میشه:


Dim frm As Form: Dim ctl As Control
For Each frm In Forms
For Each ctl In frm
If TypeOf ctl Is Adodc Then ctl.Recordset.Close
Next
Next