How can I compare a record to every record below it and then delete any record below that matches what Im comparing. I am going through a list of email addresses and need to remove any repeated emails, here is the code below Im using that will bring up an error like this<BR><BR>--------------------------------------------------------<BR>ADODB.Recordset error &#039 800a0bcd&#039 <BR><BR>Either BOF or EOF is True, or the current record has been deleted; the operation requested by the application requires a current record.<BR>--------------------------------------------------------<BR><BR><BR>&#060;% <BR>yes = 0<BR><BR>do until OnTeen.EOF<BR>emails = OnTeen("Email")<BR>OnTeen.Move (1 + yes), adBookmarkFirst<BR> do until OnTeen.EOF<BR> If emails = OnTeen("Email") Then<BR> OnTeen.Delete adAffectCurrent<BR> End If<BR> OnTeen.MoveNext<BR> loop<BR>yes = 1 <BR>OnTeen.MoveNext<BR>loop<BR> %&#062;