Mi sembra di aver capito che tu sfogli un record alla volta con degli appositi pulsanti. Poi hai un pulsante che ti richiama la proceduraqui sotto. Giusto?
***********************************
Set opened = CurrentDb
Set Tb1 = opened.OpenRecordset("Prodotti")
Set Tb2 = opened.OpenRecordset("Fornitori")

Tb1.MoveFirst
Tb2.MoveFirst

Tb1.Edit

Tb1!IDFornitore= Tb2!IDFornitore

Tb1.Update
************************************

Mi sembra di capire che apri entrambe i record e ti posizioni sempre al primo ...

Non ho ben capito qual'è lo scopo di quello che stai facendo ... se ti spieghi di più magari ti posso dare suggerimenti migliori ...