帮帮忙阿~~关于数据数组问题？

Question

我想创建一数组，但是Key不为数字例如：
Arr(a)=1
Arr(b)=2
Arr(Count)=3
....
并且a,b,Count等为变量，随时变换，比如有DB1,DB2两数据库DB1有100条记录，DB2有200条纪录
我的想法是a=Db1时，Arr(a)=100，当a=DB2时，Arr(a)=200,就是数组问题，不要数字代替a，否则我问就没有意义了。

Answer 1

Const DB1 As Integer = 1
Const DB2 As Integer = 2a = DB1
Arr(a) = 100
a = DB2
Arr(a) = 200

Answer 2

这样不行，数据库是会随时增加删除的，如果有100个难道你要Const到100吗？

Answer 3

dim Arr() as long redim Arr(DB1)
.......
redim Arr(DB2)