Remove line items if not found in another list

Hi,

I have three sheets, Main, Archive and DB2, I am looking for a vba script to match the values in Column A and Column B found in Orders, and check to see if they exist in the sheet DB2. If the values do not exist in DB2, then remove them from the Orders sheet and move the whole row (A:K) to the Archive sheet with a date added to column J stating when the item was closed. Please keep in mind this has to be done on a data set where I have at least 30K rows... Any help would be greatly appreciated.