[ابراهيم ايبو]

السلام عليكم ورحمة الله وبركاته
تفضل اخي الكريم ولكن يتوجب عليك معرفة اسماء الجداول يمكنك الرجوع الى مثالي السابق وكيفية جلب اسماء الجداول 
لكن  غير اسم الجدول وهو في حالة عدم اتصال 

كود :

 Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
       If Txt_OldTablName.Text <> Nothing And Txt_NewTblName.Text <> Nothing Then
           Dim ofd As New OpenFileDialog()
           ofd.Filter = "AccessDb|*.accdb;*.mdb"
           If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then
               Dim dbe = New DBEngine()
               Dim db As Database = dbe.OpenDatabase(ofd.FileName)
               Dim tbd As TableDef = db.TableDefs(Txt_OldTablName.Text) ' الاسم القديم
               tbd.Name = Txt_NewTblName.Text ' الاسم الجديد
               db.Close()
               MsgBox("تم تغيير اسم الجدول  بنجاح")
           End If
       End If
   End Sub