从产品库里面的product数据表中读出产品信息（ID，类别，产品名，图片路径，格式5个字段）．已知product表中已经按ID排序，读出后的数据直接连接成字符串在List1中显示，现在希望能不改变原有列表顺序的情况下，在list2中显示按产品名排序的结果．一般的方法是按产品名建立索引（不存在重复的产品名）．基本思路如下：
1、用一个数组product 来存放产品名．
2、用另一个数组a 来存放产品名数据的下标（已经按产品名排序的）．按产品名排序的方法是：取第一个产品名product（0），与后面所有的产品名比较一遍，如果有比第一个产品名大的，M+1，M用来计该产品名的位次．一轮结束后在a（M）元素记下第一个产品名的下标0．然后再取product（1）与其它所有产品名比较一遍，其余同第一个产品名．依次完成每一个产品名位次的计算并记录在a 数组中．
3、最后按a 数组指定的位置取出list1中的项添加到list2中．

程序代码如下，请补充完整下面的空缺．
Dim products（100）As String'存放产品名的数组
Dim num As Integer'从数据库中读出的记录数
Private Sub Command1_Click （　　）
Dim a（100）As Integer'存放按产品名索引的产品数组下标
Dim i As Integer,j As Integer,m As Integer'm比当前产品名大的产品名个数
For i=0To 100
a（i）=0
Next i
For i=0To num
m=0
For j=（1）

0 To num

0 To num

If i＜＞j And products（i）＞products（j） Then m=m+1
Next j
 （2）

a（m）=i

a（m）=i

Next i
For i=1To num
List2．AddItem   （3）

List1．List（a（i））

List1．List（a（i））

'按a数组的索引从list1中取出项添加到list2
Next i
End Sub
Private Sub Form_Load （　　）
Dim conn As New ADODB．Connection
Dim rs As New ADODB．Recordset
Dim s As String,i As Integer
conn.ConnectionString=“provider=microsoft.ace.oledB．12.0；data source=“& App.Path &“\产品库．accdb“
conn.Open
Set rs.ActiveConnection=conn
rs.Open“select*from product“
num=0
Do While Not rs.EOF And num＜=100
s=““
For i=1To 5
products（num）=rs.Fields（2）'读出当前记录的产品名保存到products数组
s=s & rs.Fields（i-1）&“，“'将一条记录的各字段内容连接成字符串
Next i
List1．AddItem s
（4）

rs.MoveNext

rs.MoveNext

num=num+1
Loop
num=num-1
rs.Close
conn.Close
Set rs=Nothing
Set conn=Nothing
End Sub.