recordset : structure type

Dim mabase As Database

Dim marec As Recordset

Set mabase = CurrentDb

Set marec = mabase.OpenRecordset("instructionsql", dbOpenDynaset)

Do While Not marec.EOF

marec.AddNew ou edit

TRAITEMENT

marec.Update

marec.MoveNext

Loop

Set mabase = Nothing

Set marec = Nothing