Private Function IsFieldExist(ByRef rs As Recordset, Byval sFieldName As _
  String) As Boolean
        Dim oF As Field
 
        IsFildExist = False
 
        If rs Is Nothing Then Exit Function
        If Vartype(sFieldName) <> vbString Or sFieldName = "" Then Exit Function
 
        For Each of In rs.Fields
               If Ucase(of.Name) = Ucase(sFieldName) Then 
                       IsFieldExist = True
                       Exit For
               End If
        Next
 
End Function