[VBA/VBS] Нужно определить список таблиц в БД? Но не все таблицы оказываются найденными.

[ДЩК]

Посоветуйте, пожалуйста.
Нужно определить список таблиц в БД

Dim vTabl As TableDef
Dim dbt As Database
   Set dbt = CurrentDb()
 '  Set vTabl = dbt.TableDefs
   For Each vTabl In dbt.TableDefs
 
      If Mid(vTabl.name, 1, 4) <> "MSys" And InStr(1, vTabl.name, "TMP") = 0 Then
         Select Case vTabl.name
           Case Is = "NN"
             .....
         end select
  next vTabl

не все таблицы оказываются найденными. Почему?