书写更正:
Dim testdb_ As Database
Dim i
Set testdb_ = OpenDatabase("c:\db.mdb")
For i = 0 To testdb_.TableDefs.Count - 1
debug.print testdb_.TableDefs(i).Name
i=i+1
Next
Dim testdb_ As Database
Dim i
Set testdb_ = OpenDatabase(DbPath_ + "db.mdb")
For i = 0 To testdb_.TableDefs.Count - 1 '
debug.print testdb_.TableDefs(i).Name
Next