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

有什么办法在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 rndlineend SubPrivate Function getab(ln As Integer) As StringDim f As IntegerDim 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 = lnsEnd Function
[解决办法]
直接放combo里
[解决办法]
我想不管是放到数组还是上面的COMBO，还是一个长字符串，内存应该都消耗的差不多。我同意数据库/文件/excel中，把其当资源文件用。