Private Sub HandleRecordset()
  Dim db   As DAO.Database
  Dim rst  As DAO.Recordset

  Set db = Access.Application.CurrentDb
  Set rst = db.OpenRecordset(tablename)

  With rst
    .MoveLast
    .MoveFirst

    Do While .EOF = False
      !Rec_Group = AssignGroup(!Rec_Type)
      .MoveNext
    Loop
  End With

  Set rst = Nothing
  Set db = Nothing
End Sub

' guessing at these data types
Private Function AssignGroup(ByVal num As Integer) As Long
  Static lngCounter As Long

  Select Case num
    Case Is < 10
      AssignGroup = ' something.
    Case Is >= 95
      lngCounter = lngCounter + 1
      AssignGroup = lngCounter
    Case Is >= 10
      AssignGroup = lngCounter
  End Select
End Function