@#判断一个字段是否在表中 
Function BlnField(sTblName As String, sFldName As String) As Boolean 

@#sTblName　源表名 
@#要查找的字段名 
Dim fld As Field 
Dim rs As DAO.Recordset 

BlnField = False 
Set rs = CurrentDb.OpenRecordset(sTblName) 
rs.Fields.Refresh 
For Each fld In rs.Fields 
If fld.Name = sFldName Then 
BlnField = True 
Exit For 
End If 
Next 
rs.Close 
Set rs = Nothing 
Set fld = Nothing 
End Function 
Private Sub 命令0_Click() 
@#返回True则有此字段，False则无 
MsgBox BlnField("tbl1", "ID") 
End Sub