Dim rstDepartementWorkload As ADODB.Recordset
Set rstDepartementWorkload = New ADODB.Recordset
rstDepartementWorkload.Open “DepartementWorkload”, CurrentProject.Connection, adOpenStatic, adLockOptimistic
For each … in rstDepartementWorkload
Next …
rstDepartementWorkload.Close
Set rstDepartementWorkload = Nothing