怎样在数据库中提取某字段具有相同数据的记录
例如我有一个表：
产品名称|订单号|数量|单价
苹果 1 100 1
香蕉 2 99 2
葡萄 1 88 1
...
我在主程序中定义了一个array变量， 比如说叫 "CallNumber ",我想把所有订单相同的产品名写入 "CallNumber "里面。 请问应该如何写下去：
Dim CallNumber() as String
???
由于小弟水平有限， 请各位大侠写完整一点，谢谢。
[解决办法]
把搜索出来的记录集通过循环语法就可以实现了
FOR I=0 TO 记录集总量
CallNumber（i）=记录集.firs( "产品名称 ")
记录集.movenext
next
[解决办法]
rst.open "select * from ... where 订单号=1 "
FOR I=0 TO rst.recordcount
CallNumber（i）=记录集.fields( "产品名称 ")
rst.movenext
next
