Sub ListTbls2()
Dim rst As ADODB.Recordset
Set rst = CurrentProject.Connection.OpenSchema(adSchemaTables)
Do Until rst.EOF
Debug.Print rst.Fields("TABLE_TYPE") & " ->" _
& rst.Fields("TABLE_NAME")
rst.MoveNext
Loop
End Sub