[hamada558]

انا شايف انك معقد المسالة، ومن الكود بدك تعرف اسماء الجداول، ممكن يكون هاد الكود ابسط لك، جرب وخبرني

كود :

Dim OpenFileDialog1 As New OpenFileDialog With {
    .Filter = "Access (*.mdb;*.accdb)|*.mdb;*.accdb;|Excel (*.xls;*.xlsx)|*.xls;*.xlsx;",
    .Title = "Select a Cursor File",
    .FilterIndex = 2,
    .RestoreDirectory = True
   }

If OpenFileDialog1.ShowDialog() = DialogResult.OK Then

    GetProvider(DataBasePath, Password)

    If Not Con55.State() = ConnectionState.Open Then Con55.Open()
Dim schemaTable As DataTable = Con55.GetSchema("Tables", New String() {Nothing, Nothing, Nothing, "Table"})
    Con55.Close()
Dim Tables = (From r In schemaTable Select r("TABLE_NAME")).ToArray
    ListBox1.Items.Clear()
    ListBox1.Items.AddRange(Tables)

End If