Qui hai un datatable con tutti i nomi di tabella contenuti. Poi dentro lì puoi controllare.
Sub Main()
Dim userTables As DataTable = Nothing
Dim connection As System.Data.OleDb.OleDbConnection = New System.Data.OleDb.OleDbConnection()
connection.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Access\Test.accdb;Persist Security Info=False"
' We only want user tables, not system tables
Dim restrictions() As String = New String(3) {}
restrictions(3) = "Table"
connection.Open()
' Get list of user tables
userTables = connection.GetSchema("Tables", restrictions)
connection.Close()
' Add list of table names to listBox
Dim i As Integer
For i = 0 To userTables.Rows.Count - 1
Console.WriteLine(userTables.Rows(i)(2).ToString())
Next
Console.ReadLine()
End Sub