You could use the Table's Fields collection and trap the error if the
field doesn't exist:
Dim tdf As DAO.Tabledef
Dim db As DAO.Database
Dim fld As Field
On Error GoTo Proc_Error
Set db = CurrentDb
Set tdf = db.Tabledefs("MyTableName")
Set fld = tdf.Fields("TheFieldIWant")
If fld Is Nothing Then
<handle the error>
Else
<do something with it>
End If