for next sorgusunu yapamadım hocam yardımcı olur musunuz?

rs.Open "TBLKATILIMCIALT", CurrentProject.Connection, adOpenDynamic, adLockReadOnly
rs2.Open "T_KATILIMCILAR", CurrentProject.Connection, adOpenDynamic, adLockOptimistic



rs2.AddNew
rs2!DONEMID = Me.AKDONEM
rs2!ADSOYAD = rs("ADI")
rs2!UNVANID = rs("UNVANI")
rs2!ISTASYONID = rs("ISYERI")
rs2.Update


rs2.Close
rs.Close

MsgBox "Veriler başarıyla aktarıldı."