Set gsSys_db = New ADODB.Connection
gsSys_db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=。。。"
Dim TableName As String
Set rs = gsSys_db.OpenSchema(adSchemaTables)
Do While Not rs.EOF
TableName = rs.Fields("TABLE_NAME")
msgbox TableName
rs.MoveNext
loop