如果有N个表 想要查询并显示带有某个字段的所有表名 怎么用Access实现

Public Function ListAllTableAndAllField()
'注意引用 Ado 2.1 以上版本
Dim rstSchema As ADODB.Recordset
Dim strCnn As String
Dim conn As New ADODB.Connection
Dim i As Long
Set conn = CurrentProject.Connection
'列出当前数据库中所有表的所有字段
Set rstSchema = conn.OpenSchema(adSchemaColumns)
Do Until rstSchema.EOF
'下列代码是列出所有列的所有属性
For i = 0 To rstSchema.Fields.Count - 1
Debug.Print rstSchema.Fields(i).Name, rstSchema.Fields(i).Value
DoEvents
Next
'如果觉得太多，可以取：
'rstSchema("TABLE_NAME") 来判断表名
'rstSchema("COLUMN_NAME") 来判断字段名
'rstSchema("DATA_TYPE") 来判断数据类型
Loop
rstSchema.Close
conn.Close
End Function