Usa el objeto Dictionary,
Dim obj
Set obj = Server.CreateObject("Scripting.Dictionary")
obj.Add clave, registro
obj.Add clave2, registro2
Puedes acceder a el como a una coleccion cualquiera, incluso puedes obtener los dos sendos array de claves y registros.
Revisa este Link:
http://www.aspfacil.com/articulos/dictionary.asp