yeahh!!

ho fatto un mix tra tutti i consigli ed ho ottenuto
il codice funzionante:
Private Sub Comando6_Click()
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("Nuovoordine") 'sorgente
Set rst1 = dbs.OpenRecordset("consegnato") 'destinazione

Do Until rst.EOF


rst1.AddNew
rst1.fornitore = Testo4
rst1.data = data
rst1.Prodotto = rst!Prodotto
rst1.Quantità = rst!Quantità
rst1.magazzino = magazzino

rst1.Update

rst.MoveNext
Loop
rst.Close
rst1.Close
End Sub

' movenext dove lo avevo posizionato non faceva partire il loop, anche se la posizione l'avevo copiata da un manuale!
c'è poco da fa siete troppo forti.
Grazie a tutti