[mmaalmesry]

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

هذا المثال المرفق المفروض انه يجلب أسماء الجداول فى قاعدة البيانات test.accdb الموجودة فى مسار البرنامج 
ولكن يحدث خطأ
أرجو إعادة صياغة الكود

[aljzazy]

كود :

 Dim SchemaTable As DataTable

       'Connect to the database
       Dim conn As New System.Data.OleDb.OleDbConnection(ConnString)

       Try
           ListBox1.Items.Clear()

           conn.Open()

           'Get table and view names
           SchemaTable = conn.GetOleDbSchemaTable(System.Data.OleDb.OleDbSchemaGuid.Tables, New Object() {Nothing, Nothing, Nothing, Nothing})

           Dim int As Integer
           For int = 0 To SchemaTable.Rows.Count - 1
               If SchemaTable.Rows(int)!TABLE_TYPE.ToString = "TABLE" Then
                   'Add items to list box
                   ListBox1.Items.Add(SchemaTable.Rows(int)!TABLE_NAME.ToString())
               End If
           Next

       Catch ex As Exception
           MessageBox.Show(ex.Message.ToString(), "Data Load Error", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
       End Try

       conn.Close()

[mmaalmesry]

بارك الله فيك