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 ...