复制代码 代码如下:

FunctionCheckFields(FieldsName,TableName)

Flag=False

sql="select*from"&TableName

SetRS=Conn.Execute(sql)

fori=0toRS.Fields.Count-1

ifRS.Fields(i).Name=FieldsNamethen

Flag=True

ExitFor

else

Flag=False

endif

Next

CheckFields=Flag

EndFunction