Pasar valores de una tabla a una collecion en vba Access

Tengo varias tablas en access y para saber que tablas son las correctas, las quiero comparar una tabla, en la cual están los nombres correctos de estas tablas. Las tablas cuyos nombres no se encuentren en esta tabla deben ser estas después eliminadas. Para ello he creado una colección con los nombres de las tablas existentes y quisiera crear una colección con los valores de la tabla y así compararlos. Pero no logro pasar los valores de la tabla a una colección. ¿Tienen alguna idea?Gracias de antemano .

Sub deleteTables2()
Dim Table As AccessObject
Dim db As Object
Dim ColPaises As New Collection
Dim TdfBooks As TableDef
Dim counter1 As Long
Dim counter2 As Long
Dim ColTables As New Collection
Dim strSQL As String

Set TdfBooks = DBEngine(0)(0).TableDefs!Country
Set ColTables = New Collection
Set ColPaises = New Collection
Set db = Application.CurrentData

For counter1 = 1 To db.AllTables.Count
 ColTables.Add db.AllTables(counter1).Name
 Next counter1

For counter2 = 1 To TdfBooks.RecordCount
 ColPaises.Add TdfBooks.Fields(counter2).Name
Next counter2

For counter1 = ColTables.Count To 1 Step -1
       For counter2 = ColPaises.Count To 1 Step -1
       If ColTables(counter1) = ColPaises(counter2) Then
       MsgBox ColPaises(counter2)
       End If
Next counter2
Next counter1

End Sub