access 如何判断特定的字段是否存在？

用列表框多选字段自动生成的查询表，如何判断特定的字段是否存在？

如：自动生成的查询表＂费用表＂中，判断字段＂收费日期＂是否存在，只判断这一个字段．
--------------------编程问答-------------------- '如果字段不存在，将返回nothing

function GetField(rs as adodb.recordset,sFldName) as adodb.field
on error goto errhandler
set GetField=rs(sfldname)
errhandler:
end function

--------------------编程问答-------------------- 遍历字段名就知道了.
FOR I =0 TO RECORDSET.FIELDS.COUNT -1
    IF RECORDSET.FIELDS(I).NAME = "XXX" THEN 
          MSGBOX "GET IT!"
          EXIT FOR
     END IF
NEXT

补充：VB ,  基础类