How to get access tables into a combobox

See more:

VB

SQL

I have been looking for a way to take all relevant tables in Access and have them show up in combobox.

I tried using this:

 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

The problem is this brings up all tables including hidden tables. I just want the relevant tables that are associated to my database.

What I have tried:

I tried to use a connection string:

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)

but I kept getting an error.

If there is a better way to get just the tables of the database that would be great