“VB与EXCEL、VB与ACCESS”的问题

1.VB与EXCEL：如何将excel中的一列上百万条的数据快速赋值给一个一维数组？
例：excel中的A1:A1000000中为1~1000000的自然数。需要将这个100万个自然数用最快的时间赋值给a(1000000)。
请高手给出最简单易懂的代码,谢谢！
2.VB与ACCESS（这个问题其实与上个问题性质一样）
同上，如何将ACCESS表中的一个字段下的100万个数据快速赋值给一个一维数组。
请高手给出最简单易懂的代码,谢谢！
（如果可以，希望您能将两条代码全部写出）

没可能真有100万吧，，那样就算16核出来的也崩溃，或者建议你不要赋值直接读取数据就好了 。。。