引用DAOPrivate Sub Command1_Click()
Dim db As Database
Set db = OpenDatabase("d:\winamp\test.mdb")
Dim td As TableDef
For Each td In db.TableDefs
List1.AddItem td.Name
Next td
db.Close
Set db = Nothing
End Sub