Prueba este codigo a ver que pasa, no lo he probado...
Public Function FieldExists(DatabaseName As String, TableName _
As String, FieldName As String) As Boolean
Dim DB As Database
Dim t As TableDef
Dim f As Field
On Error GoTo errorhandler
Set DB = Workspaces(0).OpenDatabase(DatabaseName)
Set t = DB.TableDefs(TableName)
On Error Resume Next
Set f = t.Fields(FieldName)
FieldExists = Err.Number = 0
DB.Close
Exit Function
errorhandler:
If Not DB Is Nothing Then DB.Close
Err.Raise Err.Number
Exit Function
End Function
me avisas si te funciono...