Hi all

            My code is working fine.  I just need help with looping
the rst.move

  Dim rst As Recordset
  Dim varCXL1, varCXL2, varclx3, varCXL4, varCXL5  As Integer

          Set rst = CurrentDb.OpenRecordset("qry_cxlcount")
           rst.MoveFirst
               varCXL1 = rst!countcxl
           rst.MoveNext
               varCXL2 = rst!countcxl
           rst.MoveNext
               varCXL3 = rst!countcxl
           rst.MoveNext
               varCXL4 = rst!countcxl
           rst.MoveLast
               varCXL5 = rst!countcxl
   set rst = Nothing

Can I loop "move" to make it look better