有什么办法在VB代码里放入上万个数库,最省电脑资源?

我想在VB程序的源代码里放入上万个商品名称的数据,然后按一下command1就随机提取一个到text1中,不知有什么办法?希望能更尽量不占用CPU和内存.

---

放到代码里，省内存是不可能的，占用CPU也不会多。

---

放在代码里个人认为不可取，代码里放数据不方便扩展，而且实质也是存放在代码文件里，应该用数据库/文件/excel等存取，

---

放到文件中

---

VB code:
DATA.TXT的内容
飞人,乔丹 ,
米卢,李响 ,
2008,奥运会 ,
相声泰斗,马三立 ,
短发,梁咏琪 ,
Private Sub Command1_Click()
dim rndline as string
rndline=getab(1+int(rnd()*5))
debug.print rndline
end Sub
Private Function getab(ln As Integer) As String
Dim f As Integer
Dim lns As String
f = FreeFile()
Open "DATA.TXT" For Input As #f
Seek #f, 36 * (ln - 1) + 1
Line Input #f, lns
Close #f
getab = lns
End Function

---

如果超过32767个就应该把上面代码里面的Integer改为Long

---

直接放combo里

---

我想不管是放到数组还是上面的COMBO，还是一个长字符串，内存应该都消耗的差不多。我同意数据库/文件/excel中，把其当资源文件用。

---

即然大家都这么说,还是采用大家的意见吧,谢谢各位了.