复制代码代码如下：
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
それ以外
flag = false
endif
次
checkfields = flag
エンド機能