Salut tout le monde

Je ne sais pas si ce que je veux faire existe en Vb mais je poses kan meme ma question. Dans une boucle Do - While j'extrais des lignes d'une grande table pour en creer une 2eme selon un test. Je voudrais savoir s'il ya un moyen rapide de copier toute la ligne extraite dans le Recorset destination sans avoir copier un par un tout les champs.
Voici a peu pres mon code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
 
Do While ptrCap.EOF = False
        If ptrCap!Id_StaffNumber = Valeur Then
                PtrFoSel.AddNew
                     PtrFoSel!Id_StaffNumber = ptrCap!Id_StaffNumber
                        ' Cette Instruction je la repete pour tout les champs ( 50 )
        End If
 Wend
Merci pour votre aide