Как получить таблицы доступа в combobox

---

Я искал способ взять все соответствующие таблицы в Access и показать их в combobox.

Я попробовал использовать это:

 Dim AccessConnection As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" Records.accdb";")
AccessConnection.Open()
Dim adt As DataTable '= AccessConnection.GetSchema("Tables")
DataGridView2.DataSource = adt
AccessConnection.Close

Проблема в том, что это вызывает все таблицы, включая скрытые таблицы. Мне просто нужны соответствующие таблицы, связанные с моей базой данных.

Что я уже пробовал:

Я попытался использовать строку подключения:

Dim Accessda = New OleDbDataAdapter("SELECT MSysObjects.Name FROM MSysObjects WHERE (((MSysObjects.Type)=1 Or (MSysObjects.Type)=6) AND ((Left([Name],4))<>'MSys')) ORDER BY MSysObjects.Name;", AccessConnection)

но я все время получал ошибку.

Если есть лучший способ получить только таблицы базы данных это было бы здорово

---