[mmaalmesry]

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

كود :

con.open
dim dt=con.getschema("tables",{nothing,nothing,nothing}) 'هذا السطر
for each r in dt.rows
msgbox(r("table_name"))
next
con.close

الكود أعلاه يجلب أسماء الجداول لقاعدة بيانات و يضعها فى datatable و يعرضها

ولكن هناك مشكلة 

لأن هذا الكود لاحظت أنه يسبب توقف البرنامج فى بعض الأحيان ولا أعرف السبب

فأرجو الإفادة بطريقة أخرى لعرض أسماء الجداول

وشكرا