Public Function GetTables(ByVal conn As System.Data.OleDb.OleDbConnection)
As DataTable
Dim schemaTable As DataTable
With conn
    If .State = ConnectionState.Closed Then .Open()
    schemaTable = _
        .GetOleDbSchemaTable(System.Data.OleDb.OleDbSchemaGuid.Tables, _
        New Object() {Nothing, Nothing, Nothing, "TABLE"})
    .Close()
End With
Return schemaTable
End Function

Dim dt As New DataTable("Tables")
dt = GetTables(New OleDb.OleDbConnection("DEIN_CONN_STRING")) 
For Each r As Datarow in dt.Rows
   MessageBox.Show(r("TABLE_NAME").ToString)
Next