I'm away from my Access computer now, so can't try the index function.
But, if you use an SQL statement to open the recordset with search criteria, I think it will do the same thing.
strSQL = "Select FROM tblItem ..... WHERE ItemID = " & lngItemID & ";"
rs = CurrentDB.OpenRecordset(strSQL
If RS.EOF then msgbox "No Records Found"
If it finds a record that matches your criteria, RS.EOF will be false.
You could also use DCount
dim intRecords as integer
intRecords = dCount("[ItemID]","tblItem","[ItemID = " & lngItemID)
if intRecords = 0 then ...... Append Record....
I haven't used the Seek function in a while because I ran into problems and found other ways of getting the job done. Perhaps this means I'm missing a tool in my arsenal...