مشکل در اضافه کردن ایتم های لیست به بانک

[sajjad1365]

سلام. من بااین دستورات اطلاعات جدول رو به لیست اضافه میکنم:

For i = 1 To 120 Step 1 'Text8.Text
On Error Resume Next
List1.AddItem Adodc1.Recordset.Fields("grup")
List2.AddItem Adodc1.Recordset.Fields("shhezb")
List3.AddItem Adodc1.Recordset.Fields("hezb")
List4.AddItem Adodc1.Recordset.Fields("sure")
List7.AddItem Adodc1.Recordset.Fields("aye")
List8.AddItem Adodc1.Recordset.Fields("joz")
Adodc1.Recordset.Move (1)
If Adodc1.Recordset.EOF = True Then
Adodc1.Recordset.MoveFirst
End If
Next

وبا این دستورات از لیست به جدول اضافه میکنم:

For i = 0 To List2.ListCount - 1
Adodc8.Recordset.AddNew
Adodc8.Recordset.Fields("grup") = List5.List(i)
Adodc8.Recordset.Fields("codgari") = Text14
Adodc8.Recordset.Fields("shhezb") = List2.List(i)
Adodc8.Recordset.Fields("joz") = List8.List(i)
Adodc8.Recordset.Fields("hezb") = List3.List(i)
Adodc8.Recordset.Fields("sure") = List4.List(i)
Adodc8.Recordset.Fields("aye") = List7.List(i)
Adodc8.Recordset.Fields("tarikh") = List6.List(i)
Adodc8.Recordset.Fields("saat") = List15.List(i)

Adodc8.Recordset.Update
Next
وبه صورت صحیح هم این کار رو میکنه .
ولی مشکل اینجاست که بیشتر اوقات این ایتم ها رو به صورت مرتب اضافه نمیکنه(مثلا از وسط لیست شروع میکنه). و ترتیب برای من خیلی خیلی خیلی مهمه.
ممنون میشم اگه راهنمایی کنین.

[ENG_Torshani]

قبل از حلقه بنویس list1.listindex = 0 درست میشه