Dictionaries and Hash Tables in MS-Access 2007

Dim Dict1 As Dictionary

' Create a dictionary instance.
Set Dict1 = New Dictionary

With Dict1
  'set compare mode
  .CompareMode = BinaryCompare
  ' Add items to the dictionary.
  .Add 1, "Item 1"
  .Add 2, "Item 2"
  .Add 3, "Item 3"
End With

.application
.creator
.delete
etc...

Set Dict1 = CreateObject(Scripting.Dictionary)

Dim SortValues As Scripting.Dictionary
Set SortValues = New Scripting.Dictionary