[عبد العزيز البسكري]

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

تفضّل أخي الكريم ..

كود :

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       Dim constring As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\Mydatabase.mdb"
       Using Conne_2019 As New OleDbConnection(constring)
           Conne_2019.Open()
           Dim Table_Name As String = "MyTable1"
           Dim Restrictions() As String = {Nothing, Nothing, Table_Name, Nothing}
           Dim CollectionName As String = "Tables"
           Dim DataTableFind As DataTable = Conne_2019.GetSchema(CollectionName, Restrictions)
           If DataTableFind.Rows.Count > 0 Then
               Form2.Show()
           Else
               MsgBox("الرجاءالتأكّد من وجود الجدول بقاعدة البيانات")
               End
               Exit Sub
           End If
       End Using
   End Sub

تحياتي