自己搜索方法了!参考了andymark 老大的代码!谢谢诸位了!
Dim Rs As New ADODB.Recordset
Dim Conn As New ADODB.Connection
Set Conn = CurrentProject.Connection
'td.name为for each各个表得来的表名称
Rs.Open "select * from " & td.Name, Conn, adOpenDynamic, adLockOptimistic
For i = 0 To Rs.Fields.Count - 1
If Rs.Fields(i).Name = "项目编号" Then
msgbox "存在项目编号字段"