COLUNA NO RECORDSET

Public Function FieldExist(ByVal RecordSet As RecordSet, NomeCampo As String) As Boolean
    Dim rs As ADODB.RecordSet
    Set rs = RecordSet.Clone
    
    FieldExist = False
    
    For i = 0 To rs.Fields.Count - 1
        If LCase(rs.Fields(i).Name) = LCase(NomeCampo) Then
            FieldExist = True
            Exit For
        End If
    Next
    
End Function