Need Help with Indexes

Ok...really frazzled now and need some major help. I am trying to create an index but it is just not working. I keep getting a "Run-time error '3409': Invalid field definition 'DocTitle' in definition of index or relationship.

Here's a code snipet:

Set cmptbl = cmpdb!compliance
With cmptbl

Set cmpidx = .CreateIndex("cmptitle")
With cmpidx
.Fields.Append .CreateField("DocTitle")
.Fields.Append .CreateField("DocDesc")
End With
.Indexes.Append cmpidx
.Indexes.Refresh
End With

Am I missing something here? Definately lost now. Could've sworn it was working yesterday.

Some possible causes for this error

The field name you have specified might be misspelled.
The field data type is a Memo or OLE Object, which cannot be indexed.