Excel VBA to Drop Table in Access

[jo15765]

I found this code (I can't find the link back to it now )

Sub RemoveTempTable()
Dim db As DAO.Database
Dim tdf As DAO.TableDef
Dim dbName() As Variant
Dim q As Variant

dbName = Array("One", "Two", "Three")
Set db = OpenDatabase("C:\" & dbName(q) & "\" & dbName(q) & "RPT.mdb")
For q = LBound(dbName) To UBound(dbName)
    db.TableDefs.Delete "tbl_Test"
Next q
End Sub

The problem I have is I tweaked the code to work for an array of databases, and it is only updating the 1st database, it is not dropping the table in the subsequent databases. What did I code wrong?

 

[jo15765]

Found the link that I was referencing above...I actually found it on this site

http://www.mrexcel.com/forum/showthread.php?t=413212