Ya di con la cosa, necesitaba una estructura de control, me valió While
Gracias

While Not Presu.EOF
Factura.AddNew
Factura!IdFactura = N_Factura
Factura!Cant = Presu!CantPre
Factura!Descripcion = Presu!DescripcionPre
Factura!PUnidad = Presu!PUnidadPre
Factura!Importe = Presu!ImportePre
Factura.Update
Factura.MoveNext
Wend