Unas pruebas con lightbox:

Haz clic aquí

Haz clic en la imagen:

'
' Comprueba si un campo existe en un recordset.
'
Public Function RecordsetHasField(rs As Recordset, fieldName As String) As Boolean
Dim f As Field
RecordsetHasField = False
For Each f In rs.fields
If LCase(f.Name) = LCase(fieldName) Then
RecordsetHasField = True
Exit For
End If
Next f
End Function